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INTRODUCTION 



This is the external design report for the 
Heterogeneous Element Processor (HEP) , imple- 
mented by the Ryan-McParland Corporation under 
Denelcor purchase order No. 014882. It is 
directed to the FORTRAN programmer as well as 
the programming staff responsible for maintain- 
ing the compiler. Its purpose is to explain the 
HEP version of the FORTRAN language, the various 
inputs and outputs of the compiler, and to give some 
examples as well. 
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1. FORTRAN SOURCE PROGRAM FORM 

A FORTRAN source program consists of one main program 
and any number of subprograms . The main program and 
subprograms are made up of statements using the FORTRAN 
character set. 



..1 Character Set 

The character set has two subsets: , alphanumeric char- 
acters and special characters. 

alphanumeric characters: 
__^; Letters (A-Z) and 

Digits (0-9) 



special 


characters: 




• Blank 


.■.=■,■ 


Equals 


.■ ■+'■ 


Plus 


; ■., _ , 


Minus • 


* • 


Asterisk 


/ 


Slash 


:'■:(■■< 


Left parenthesis 


) 


Right parenthesis 


i 


Comma 


. ■ • 


Decimal point 


. ^ 


Currency symbol 


1 


Apostrophe 
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Blanks may appear anywhere in a source program. They are 
significant only in Hollerith constants and format speci- 
fications. 

1.2 Source Statements, 

Standard FORTRAN statements are accepted as formatted 80- 
character or less lines (or records). Each line is 
divided into four fields: 
• Columns Field 

2.-5 Statement Label 

6 Continuation indicator 

7-72 , Statement 
73-80 Identification 

The identification field is ignored by the FORTRAN compiler 
and is provided for the convenience of the programmer. 



1.2,1 Statement Labels _ 

The statement label is made up of digits placed anywhere 
in columns 1-5 of the initial line of a statement. Blanks 
and leading zeros are ignored. 



1.2.2 , Statements ..\",\ 

A statement consists of an initial line and any number of 
continuation lines. 
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An initial line is a line that is neither a comment 
line nor an END line and contains either a blank or • 
the digit in Column 6. A continuation line is not 
a comment line and contains any character other than 
blank or (zero) in Column 6. An END line is a line 
containing an END statement, which cannot be continued, 

■ EXAMPLE: ' ' ' 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 . 


• « 






2 








X 
X 


A 
C 
+ 


D 


B 


+ 




. ■'•, 





The first line of this example is an initial line. The 
.second and third lines are continuation lines. The state- 
ment, label is 200. The statement is equivalent to: 

'A = B, + c +;D ' ■■ 



1.2.3 Comments 



Comment lines have the character C or an asterisk (*) in 
Column 1. Comments are for the convenience of the programmer 
and permit him to describe the program; they do not influence 
the program. Columns 2-72 may be used in any desired format. 

A comment line can only be followed by another comment ■ 
line or the initial line of a statement. 
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1'. 2.4 Blank Lines 



Blank lines may be included in the source text. Columns 
1-72 must be blank. A blank line can only be followed by 
a comment line, another blank line or the initial line of 
a statement. 



1.2.5 Source Statement Ordering 

Table 1.1 shows the order in which source statements of 
each program must be written. Within each group, the state- 
ments may be written in any sequence. 

DATA and CONST statements may appear anywhere after Group 
2 and before Group 6, but must appear after any declarations 
(COMMON, DIMENSION, or type) affecting the variables to be 
initialized. 

FORMAT statements may appear anywhere before Group 6. . 



1.3 n in Column 1, Conditional Compilation 

~"' If the compiler option for conditional compilation is , ■ 

specified, all source lines with a Din Column 1 are : 
compiled as though Column 1 contained a blank . Otherwise 
these lines are treated as comments. .. 
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SOURCE STATEMENT 



GROUP 



PROGRAM 
FUNCTION 
SUBROUTINE 
BLOCK DATA 



IMPLICIT 



COMMON 
COMPLEX 
DIMCENSION] 
DOUBLE [PRECISION] 
EQUIVtALENCE] 
EXTERNAL 
INTEGER 
LOGICAL 
MAX REGS 
""PRIVATE • 
REAL 
REGI ISTER] COM [MON] 



Statement Function 



Assignment 

ASSIGN 

Assign and Unconditional GO TO 

BACKSPACE 

CALL 

Computed GO TO . 

CONTINUE 

CREATE . 

DECODE 

DO 

ENCODE 

ENDFILE 

IF 

PAUSE 

PURGE 

READ 

RESUME 

RETURN 

REWIND 

STOP 

WRITE 



END 
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Table 1.1 
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1.4 COPY Statement 

The copy feature enables parts of the program to be stored 
in more than one file. This statement appears as follows: 

COPY name 
where "name" is a file pathname. The name must be 
completely contained on one line (not extended across 
continuation lines) and may not contain blanks. 

A program may contain any number of COPY statements, 
but they must not be nested deeper than three. 

The contents of the named file are inserted into the 
. . source program such that the first record of the file 
will be the next line after the COPY statement . Thus 
COPY statements may be labelled and referenced the same 
• as CONTINUE statements. A copy statement may not precede 
group 1 statements, nor may it follow a group 6 statement. 



■r fi -.. 



RYAN-MCFARLAND CORPORATION 



R M C 



2 . DATA 



Data is represented as constants and variables. A 
constant is a quantity whose value is explicitly stated. 
A variable is a quantity whose value may vary and is 
referenced by an identifier which symbolically identifies 
"the variable. 



2.1 Identifiers 

Identifiers are used to give names to; 

— Variables.'" 

— Subprograms 

— Common blocks 

An Identifier is a string of alphanumeric characters, 
the first of which must be alphabetic. Any number of 
characters are allowed in an identifier but only. the 
first eight are recognized. Certain identifiers may be 
preceded by a dollar sign ($) (see section 2,2) ,: The dollar 
sign is not included as one of the significant characters 
'„ of an 'identifier. ■■/„■ 

„ EXAMPLES: ';.■''■, //,: "V; ■'^;V- '' /'■■;/;■:■;;/. , •;:■■■, 

\-'' 'xi5 :. :'\ :::':■- '■ .' . .■;.;'::;■■;.• ■■'■.^ [ : ■''':r::..'[ 
;■■'■■ -PERMUTATION '/:''V :/.:;■; \ ^>.:;;-.;.; ■;,,■ 

.,;.■.' ./'STRAIN \ 

2.2 Variables 

Variable names are identifiers that represent quantities 
which may assume a number of different values. Each 
variable has an associated data type: integer, logical, 
real, double precision, complex. The variable may only 
ass\xme values of that type. 

r' "J t-> 
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A variable may be either synchronous (the FORTRAN standard) 
or asynchronous. An asynchronous variable is actually a 
pair: A standard variable and a semaphore. Assignment to 
the variable causes a wait until it is semaphored as empty 
and leaves it semaphored as full with the new value. Conversel 
each use causes a wait until the variable is full, and leaves 
it empty. The semaphore may be interrogated with an intrinsic 
function (FULL or EMPTY) to determine its state. An 
asynchronous variable is indicated by a dollar sign ($) 
preceding the first character of the identifier. Also, the 
same variable may not be used as both a synchronous* and an 
asynchronous variable; i.e., $A and A may not appear in the sam^ 
program unit."' ;■'■,,■■/.: 

Variables may be simple or arrays. 



2.2.1 Simple Variables 

A simple variable name identifies the location in which a 
variable value can be stored. . 

;;■,:■ EXAMPLES : ;'■ ■^'' '■:[■'■■■'',/:: ^^'^ ":'■:'-''''■'■ '' 

:'■:■■'■ •■■ '^ ' . ■ ■• ■ '.:■'•■■:■'■''•■.' '■■''■■ 

■:'. ' ,^.r']-:\ ■ ■■;■,■:. $VALUE ■ ■' '■■';■';:■■■.; 

■■::'. ■:,' ■■ .■■■•:■; LOOK UP ■ : ■ '-.•■ 
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2.2.2 Arrays 



An array variable name identifies an ordered set of 
data having one, two, or three dimensions. Each element 
of an array is referenced by the array name followed by 
a set of subscripts. 

An array has an associated type the same as a simple 
variable. An array must be declared by an array 
declarator which establishes the number of dimensions and 
the size of each. Typing of an array is done the same as 
for a simple variable. 

The declaration of an array's type may occur separately 
from the declaration of its dimensions. 
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2.2.2.1 • Array Storage Allocation 

The. multi-dimensional arrays declared by the programmer 
are assigned to the one-dimensional computer memory 
in such a way that the left-most subscript varies most 
rapidly and the right-most the least. 

.■■'/EXAMPLE:'': 

Allocation of array K of three dimensions of 
'^■>'.two elements each.' '"':.:;,„■.,■■,•■::■:''.;■■ ■■ 

Memory Sequence Array Element ' '.' 

■■:■>";:' ;;^'^^/-: ■■■■■: ...■:;K(i>i',i)::;.jy^ 
: 2./ :;-.;;0,, ;•;^:,.,:-'K(2,l,l). ■;■■■■•■;■;■;:,. 
■.,■• ,3 :,.:..■•■ ;;^-. •■■v^:.;_ K(i,2,i)';'^-;;.' 

■■;;.■;,'•■• ■: 4 •.■:•.':■■, /',.•'■'..':,'■■ K{2,2,1) ■■\:.V;;,/ 

■;.":•' '5 ■.':•.■■;. ;■:■ K(i,i,2) ■■■-;■■■■.■..■ 

:-,^ ' ■■ ;■':'■:■;-■,;: K (2,1, 2) /;■-':,, 
'./.■ 7 ■■';■.. „-v. ■■ ■;, K(i,2>2) .•v;.^. •:'.■'. 

■;'■.■■"■.'.■.'■■• .8, •,.,••.■.■-■■•:-■' ■^;;;/■V-,;,K(2,2, 2);:,' ■::.',•: . 
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2.2.2.2. Array References 



Most FORTRAN statements operate upon only one element of 
an array at a time. A member of an array is referenced 
in the form: 

array (5^,82/83) 

where "array" is the name of the array/ and the S. are • 
subscript expressions. A subscript expression may be 
any expression (see section 4.1). The expression is 
converted to type integer after evaluation. 
EXAMPLES;, ■ '„ 

: ; Yd) „ ;■■•■ ;■'',•'■'■■:■■■':■ 

,; ; sTATioN(K) ^■ ..'■.:v,';':;;.-; :■^•;^.: ':,;;': ■ 

Q(LINE(N,X)+RHO,N)::^^^^^:^ '■}. 

The value of a subscript must be within the limits specified 
for the array. The number of subscripts must equal the \ 
number of dimensions specified for the array. 



2.3- Data Types '■ ■■■ 

The following data types are defined: .'/^-.l;''':,''.:'': 

.'Integer ,, '',■■-: ■^"-' 
■ Logical'^. 
■",'.,■" Real ■, . .■'';■";';,■•■•" •'' 

Double Precision :: 
,,;'■; ^ Complex , ,' 

The name assigned to. a variable is associated with a data 
type either implicitly or explicitly. 
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The explicit type declaration statements (section 3.3.1) 
assign the type explicitly. 

If a variable is not explicitly typed by declaration, the 
compiler implicitly types it according to the following 
conventions: 

- If the identifier begins with one of the letters 
I, J, K, l/ M, or N, the type is INTEGER. 

- Any other first letter implies REAL. 

The IMPLICIT statement may be used to alter the above 
conventions and/or introduce similar rules for types other 
than integer and real. See section 3.3.2. 

For an asynchronous identifier, the first character after 
the dollar sign is used for implicit typing. 



2.4 Constants 



The type of a constant is determined by its form. 



12 ■- 

RYAN-McFARLAND CORPORATION 



R M C 



2,4,1 Integer Constants 

— ^' An integer constant is a signed or unsigned string of 
decimal digits. It consists of up to 19 decimal digits 
' in the range -2^^ (^ -9.2 xlO-"-^) to +2^^-l (-v. 9.2 x lO"^^) . 

The internal, representation of an integer is a full word 
(64 bit) two's complement number. However, integer division 
produces a result accurate to only 46 bits. 
EXAMPLES: 

-1 

1234567890 
.- D , .■■ ■■' , . 



2.4.2 Real Constants 

A real constant is a signed or unsigned string of decimal 
digits that includes a decimal point and/or an exponent. 
Any number of digits may be included, but only the first 
fifteen are significant. A real constant has one of the 
following forms: * 

+i. +,i ii-i ii^±® 

+i,E+e j;^,iE+e +i.iE+e . 

where i is a string of digits and e is a 1- or 2-digit 
exponent to the base of 10. The plus (+) character is 
optional. The magnitude of a real constant is in the 
approximate range of 5.4 xio"'^ to 7.2 x 10 .. • " 

EXAMPLES: 

3.1415' , ' 
+0.031415E+2 

,-. .031415E2; ■.'■'.■■.'■' 

.*: . 31.415E-1., 
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Internally, real data is stored as follows: 



] 


. 


78 




63 


s 


c 


■ M 



where S is the sign (+ = 0, - = 1) A/^tf-uu ^n\AyirCti^a^xj!U, 
C is the. base sixteen characteristic plus 64. 



M i 



is the mantissa (56 hits) j^Sjt^^ix^rCCtd o^^ ^ v4^^- 



The mantissa iSy^normalized. 



2.4.3 Double Precision Constants . 



A double precision constant is a signed or unsigned string 
of decimal digits that includes an optional decimal point 
and an exponent. Any number of digits may be included, 
but only the first twenty nine are significant. A double 
precision constant has" one of the following forms: 
:.:■': /:'^.-isy^'''::--'^ li*'^ ±»ip+e iio+e 
where i is a string of digits and e is a 1- or 2-digit 
exponent to the base 10. The plus (+) character is optional, 

The magnitude of a double precision constant is in the 

—79 75 • ' • 

approximate range of 5.4 x 10 to 7.2 x 10 . 

,'■■.:. EXAMPLES:' :.:,■■'-■;■■/■ i ' ' -': 

['■■':-,' ■::\.:V[- .://>:v:.31415927Dl ■.•,^;^; 

;■ ■",-'?-;'^,:- •' ':■. ''Vs. 1415D0. '-■.■'.■■.•■■■;■; /■ ■^^■- ';''.:■■::■■:;'■'■" ■:,'"^:'' 

V;'';/'^'/::\:-V •■.31415.930-04 ^ ,■■.',./:.■■■ v;-:,':;-' ^'^ 
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-r— RYAN-McFARLAND CORPORATION 



R M C 



Internally, double precision constants appear as a real 
ponstant followed by an integer extension of the mantissa: 



^1 


=1 


"l 



M, 



»] 

M, 



- Sign 

- Characteristic 

- Mantissa, (56 bits) 

- Mantissa^ (65/ bits) 



2.4.4 Complex Constants 

• A complex constant appears as an ordered pair of real 
constants enclosed in parentheses: 

. The real part is r, and the imaginary part is r^ . 
/;.' EXAMPLES ;;.■;' V ■ ■■ 

.■ (0./- -1.) 
(5.2, 2.6) • . 
(-3.E12, .017E-16) 
Internally, complex data is stored as two real constants 

';■.■■/ (see' 2.4.2). ^V';':-': ' ■ :': v::-''' "':'''■'■' '~'d:'r.\'. ■■. 
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2.4.5 Logical Constants 

A logical constant is a truth value. 

.TRUE. or.T. . .FALSE, or .F. . ' 

A logical constant occupies one word which is either 
zero (.FALSE.) or non-zero (.TRUE.) . 

2.4.6 Hollerith Constants 

A Hollerith constant is a string of characters which is 
represented internally by 8 bit ASCII codes. A Hollerith 
constant may appear wherever an expression may appear, however 
it may not appear within an expression.' It is treated as ' 
an integer constant. There are four forms for Hollerith - 
constants: 



nHC^ C^ . . . C 
X z n 

^ 1 ^ *^ . . . \at 
1 z n 



nRC,Co. . .C„ 
i. z n 

nLCi Co ... C_ 
1. z n 



where n is an unsigned integer constant and C. are characters. 

Internally, the characters are packed eight per word. The 
two forms on the left are equivalent and imply left justi- 
fication with trailing blanks (if necessary to pad n to a .' 
multiple of 8). The R arid L forms indicate right and left 
justification respectively/ however these two forms indicate 
binary zero padding (if necessary) not blanks. All character's 
including blanks, are significant in the string. ., 



^16 - • 
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The apostrophe may be included in an apostrophe-delimited 
Hollerith constant by using two consecutive apostrophes in 
the -string. , 



EXAMPLES: 
IHA 



Storage 



2H A 



'ABCDE' 



'ABC'PEF' 



IRA 



5LABCDE 



A 


. b 


b 


b • 


b 


b 


b 


b 


(ASCII) 


b 


A 


b 


b 


b 


b 


b 


b 


:; (ASCII) . . 


A 


B 


C 


D 


E 


b 


b 


b 


(ASCII) 


A 


B 


C 


1 


D 


E 


P 


b 


(ASCII) 


0000 


0000 


0000 


0041 




rf* 


: . (HEX) ; ,; 


4142 


4344 


4500 


0000 



(HEX) 
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2.4.7 . Hexadeciinal Constants 

Hexadecimal constants are written as follows 



X'D^Dj ' 



where the Dj^ collectively represent a string of up to 16 
hexadecimal digits (0-9, A-F) . Hexadecimal constants are 
-stored internally right justified in one word. They are 
treated as integers within expressions. \ 



EXAMPLES ; 

X'FF' 
X'OOOFFOOO' 
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3. SPECIFICATION STATEMENTS 

" ' • Declarations are used to supply descriptive • 

information about the program rather than to specify 
computation or other action. This descriptive inf or- 
• mation primarily concerns the interpretation of source 
program identifiers and object program storage allocation, 

The following declaration statements must all appear ^ 
. in the program prior to any non-declarative statements 
and statement function definition statements. * 

.;,,■ .■:'^\^;' '.Explicit, type statements ;-:\ ^''^'/^".^-,^ '.•..■';■■';:'; ■ 

,.■■■',■;:.:•■■■ IMPLICIT ■ statement ,; ,.,.■■■.;■ ,■ -■ /^' 'v;'' ■ ■ .■■,,\ 
. ■../■■;■;■.,■ dimension' statement,. ■ - ,. ■'''■■'-'.■' '.^ , :--:^' 

-'./".-.EXTERNAL statement ^V ';! .:^. '..'/': -'V^ :\''^'V,;i.,''\' :. 

,. ' COMMON^ statement • ■ :■'</:} '^.-^ '■■'■'' '-l .'. ' ^"'i ^ 

.,;.■;:■.:.'';.,•■.' EQUIVALENCE statement''- ' 

;,■;;';'■■'■ .MAXREGS statement, ,■':■■■•■,■'.'■,: \ :'';V, : '■■;;■.;■;■''';■:;;;; ^y;_;^ , ', 

DATA Statements are not required to appear in the program 
prior to any non-declarative statements. 

3.1 Array Declarators 

Arrays may be defined by several statements: 

Explicit type statements . 

COMMON 

DIMENSION 



\ 
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Array declarators are used in these statements. Each 
array declarator gives the array identifier and the 
maximum values each of its subscripts may assume/ thus: 

identifier (max^^, max2, max,) 

The maxima must be integers. An array may have one, 
two, or throe dimensions.. 

For example, the statement '/■'■'::'"■'':/.:■■ 

DIMENSION EDGE (10,8) ' i ■ 
Specifies EDGE to be a two dimensional array whose first 
subscript may vary from 1 to 10 inclusive, and the :■ 
second from 1 to 8 inclusive. v^^.^^^^^^V^^ • 

,,..■■':■.. EXAMPLES:', ■.■•.'" /'v-!.v..; 

DIMENSION PLACE (3,3,3) , HI (2,4) ,K(256) 

•Arrays may also be declared in the COMMON and explicit : 
type statements in the same way: ^ ■':,'.! ^^ -i 

.„ ■ COMMON . X (io,,4) ,y Y, z -•' ']^'':u'^''^y':l('''^^^ ^. ' ''■>:■•■'■ ■"■:■,: 

' • . ■;;-;.INTEGER A(7,32) ,B .-^'^yy:- 

DOUBLE PRECISION K(6,10) ^i ; . i' 



3.1.1 Variable Dimensions 



Within a subprogram, array declarations may use integer ';; 
variables provided that .the array name and variable 
dimensions are formal parameters of the subprogram. The ' 
actual array name and values for thei dummy variables are 
given by the calling program when the subprogram is called. 

■:'■-■..■,, ;:;^ .,,.:.;:.;■;/;;; -r;^ 20 - 
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Quantities needed for reference to the array are evaluated 
upon entry to the subprogram and unchanged by any sub- 
. sequent modifications of- the dimension variables. 

■, EXAMPLE: ; 

■ DIMENSION BETA (L, M/ G) 

The identifiers BETA, L, M, and G must all be formal 
parameters. ;.■ "-,',''•■■ 

3.2 DIMENSION Statement ,';:'■,;■' ■■■■ /-V;v\V :.:'.' ■„;' ■/■':■'':' ^:'y':. 

The DIMENSION statement is used to declare identifiers . 
to be array identifiers and to specify the number and 
bounds of the array subscripts. The information supplied. . 
in a DIMENSION statement is required for the allocation 
. of . memory for arrays. Any number of arrays may be declared 
:in a single DIMENSION statement^ / 

'•■•:;■■.'-. ,[ FORM:-, /•';•■ ■;..■ \-":"' 'l'-V-;; >/ :^ .::\,\ :;■,--'. ^ 

'■..DIMENSION Sj^,S2f-fS^:: 
where S is an array declarator. / 

Each array variable appearing in the program must represent 
; an element of an array declared in a DIMENSION statement, - 
'unless the dimension information is given in another : 
statement. When the dimension information is provided ■ 
in a COMMON or explicity type statement, it may not appear 
, in a DIMENSION statement. The DIMENSION keyword may be , 
■'■'"''.■■'.■.abbreviated: DIM. /■ -■\^.:. ■;■■■■:'■■■' ..■■■; 

, .-■.■■ .■■'/■■^ ■•:.'.■ '•":.■■,, .■' .; ■ -■ 21 .- ' ^;■■,^■, :■..;'.,■•'■ '^^''--y-yv^y ■'■;.■ yy^l ■:} yy-i ' 
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3.3 TYPE Declarations 

The explicit type statements INTEGER, REAL, DOUBLE . 
PRECISION, COMPLEX, and LOGICAL, and the IMPLICIT . 
statement are used to specify the type of the identifiers 
appearing in the program. 

3.3,1 ■ Explicit Type Statements 

The general form of the explicit type statement is: 

type identifier, , identifier, ,..., identifier 

.■'.■■".■ ' . . "^ ,■ - ^ n 



Type may be INTEGER, REAL, DOUBLE, DOUBLE PRECISION, 
COMPLEX, or LOGICAL, , 
or array descriptors. 



COMPLEX , or LOGICAL , and the identifiers^ are identifiers 



An identifier may appear in only one explicit type 
• statement. Explicit type statements may be used to 

■ declare arrays that are not dimensioned in DIMENSION 
'■■■■;■, -''or, COMMON, statements, ■■;■:■. :;-::,';'• ■^"-. /';:■■" '.■■■. 

3 . 3 .1,1. r INTEGER Statemeftt .•■;■.' 

•■,;,:.;: ,: FORM:,''\:\ :; .;'■■';,'■" ,•■ ■■■ • '.■■■■. ■'■■''■■.■ -^ ■■.■•,''■'• / 
: ■y- INTEGER identifier, identifier, ... 

, This statement, declares the listed identifiers to be 
; integer type with each datum occupying one word, 

"■;.•;... .EXAMPLES; "^ 

INTEGER ALPHA, $PVAL 
. V.r^^: ;I^^ (10) 
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3.-3-*-!. 2 REAL Statement 



. FORM: 

REAL identifier/ identifier,... 

This statement declares the listed identifiers 
to be real type with each datxim occupying one 
word in floating point format. 

,■ ' -/EXAMPLES: ■ 

REAL $LOGX, MASS (10,4)' 
;.v '-".REAL I,J/K ■ ;■ \y\':K.y.:-''y,:- ■■:'^-\'^ 



3.3.1.3 DOUBLE PRECISION Statement 

■.,;., '■':/■/;:'"' •' FORM:; :■.■•'■ ,/ '■■■,'■'■,:■■.,'■■:■■■,■■.:■■'' ^■'■■?-'' ■/.>■■ '''i-h;:'-'^",,-..'' ■,:■■' •■■ 

pOUBLE PRECISION identifier, identifier, ... : 

■ This statement declares the listed identifiers to 

be of double precision type.; Each datum pccupies two 
',; words in floating point format.': The keyword PRECISION 
• :' may be omitted. 



EXAMPLES: 

DOUBLE PRECISION RATE, Y, FLOW 
DOUBLE $TIME(27,9) 
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3.3.1.4 COMPLEX Statement 



V,- FORM: ;. ■ . 

COMPLEX iden tifier ^identifier,...' 

This statement declares the identifiers to be ' 
of complex type. Each datum occupies two words, 
two floating point numbers representing the 
real and imaginary parts. 

EXAMPLE: 

COMPLEX ZETA,W,ROOT 
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3^JL.1.5 . LOGICAL Statement ' ; • ' ' ' , 

FORM: 

LOGICAL identifier, identifier, .. . 

This statement declares the listed identifiers to be 
of logical type. Each datum occupies one word where 
zero represents false and non-zero represents true. 

■ EXAMPLE:;';: ■■ '■■■:-, 

LOGICAL BOOL, $P,$Q, ANSWER 

3.3.2; IMPLICIT Statement 

, The IMPLICIT statement is used to establish the • 

.'. implicit type of an identifier if the programmer wishes 

■ it to be different from the default implicit typing 

■ wherein identifiers beginning with letters I, j, K, L; 

■ : M, N are integer, others are real. , : 

.FORMAT: ,■;,! ■.■;., :,:■■:'■■./■: 

- IMPLICIT typel(A^,A2,.,.),type2(A3,A4;.;.K. 

; where typej. represents one of the following: INTEGER, V 
^ REAL, DOUBLE,- DOUBLE PRECISION, COMPLEX, LOGICAL; and 
■'' ^' -'y'" ■:■:.'' ^l'^2'^''". ^sP^ssent single alphabetic characters or a 
.range of characters (in alphabetic sequence) denoted by 
the first and last character of the range separated by 
a minus sign (e.g., A-D). 
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This statement causes any variable not iiientipned in an 
explicit type statement and whose first character is one 
of those listed to be typed according to the type 
appearing before the list in which the character appears. 
For an asynchronous identifier, the first character 
after the dollar sign is used. 

EXAMPLE:' ■• 

IMPLICIT INTEGER (A-C,X), DOUBLE PRECISION (D) , LOGICAL (L) 

This statement would cause the following implicit 
declarations to be in effect: 

1. Identifiers beginning with A, B, C, I, J, K, M, N, " 
X are -integer. .■■:.,.••■.';■ ,!.■■ 

2. Identifiers beginning with D are double precision,. ;. 

3. Identifiers beginning with L are , logical . - ■ 

: 4. Identifiers beginning with E, F,,G/ H, 0/ P, Q, B., . : 

•■,:■- ^.;: '■■'■■■' S, T, Uf V, \J, Y, Z are real .",;.^;. ;::;\-V :;•/";'■, .^;.;:'^ : '..■;,;-;;:■■, ;^:'; 

3.4' -. COMMON Statement ■ 

■■•;,'■■ .-FORM:. :'"',■'■■■'■' ; ■ : '■f-:V/-:;, ,'{■ -'v''' '^ ';^;■:v 

■■;.;■• COMMON block-list ■/,,.;.:■;; :\' '::'■ 'i,' ■■-:'.' ^ ' ■■ •.'■V,:' ':'::''' .^'-i 
■' , ■■ v' '■■■..' ■'■■^■- '■■■.;.■ ' .■■-■ o^,' ;,■;•'■. ■ ':■'-'■'■'''■ ;,/■;:■ /■:.;-\;/ ''■■:-. ..■■^.■:'■■'■'': 

REGISTER COMMON block-list ■ ; \ ' ■ : '' 

The COMMON statement specifies that certain variables or 
arrays are to be stored in an area also available to other 
■ programs. By means of COMMON statements, a program and 
its subprograms may share a common storage area. This 
area is located in data memory or register memory as . ■ 
indicated by the key word REGISTER. REGISTER COMMON may be 

abbrevT atpri , J^TlGrQT^ , ; — ryan-mcfarland corporation — — — > 
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The corainon area may be divided into separate 
blocks identifed by block names. A block 
is specified thus : 

. /identifier/identifier, identifier, ... .identifier 

The identifier enclosed in slashes is the block 
name. The identifiers which follow are the names 
of the variables or arrays assigned to the block. 
These elements are placed in the block in the 
order in which they appear in the block specification, 
A normal common and a register common may not 
. have the same block name. 

The block list of the COMMON statement consists 
of a sequence of one or more block specifications. 
For example the statement 

COMMON/R/X , Y / T/C/U ,V,Vl,Z 
indicates that the elements X,Y, and T, in that 
order, are to be placed in block R and that U,V,W,2 
are to be placed in block C. 

Block entries concatenate throughout the prpgrara, 
beginning with the first COMMON statement. For 
example the statements ; 

REGISTER COMMON/D/ALPHA/R/A,B/C/S 
REGISTER COMMON/C/X,Y/R/U,V,W 

■■, ■-■ 21 - 
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have the same effect as the statement , 

REGISTER COMMON/D/ALPHA/R/A,B,U,V,W/C/S,X,Y 

One block of common storage may be left unlabeled and is 
called blank common. Blank common is indicated by two 
consecutive slashes. A blank common may not be 
declared to be of type REGISTER. 

For instance.-,;. ';-..; 

COMMON/R/X , Y //B , C , D 
indicates that B, C/ and D are placed in blank 
.common.; .>..,'■ 

, The slashes may be omitted when blank common is 
the first block of the statement. 

..■■;: COMMON B,C/D ' -'■■/'/'■ '''■'-'/':..'■'■'■■'■■'■'■: r' ' '■.' '^ '" ':■■ 

Storage allocation for blocks with the same name , 
begins at the same location for all programs executed 
together. For example if a program contains 

: COMMON A, b/r/x,y,z ; 
as its first COMMON statement, and a subprogram has ■ 

COMMON /R/U,V/W//D,E,F 
as its first COMMON statement/ then the quantities 
represented by X and.U are stored in the same 
location. A similar correspondence holds for A 
and D in blank common. 
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Labeled blocks of a given name must have the 
same length in all programs executed together. 

Blank common may be any length in any program. 

Array names appearing in COMMON statements may 
have dimension information appended, as in 
a DIMENSION statement . For example 

COMMON ALPHA,T(15,10,5) ,GAMMA 

specifies the dimensions of the array T while 
entering T, in blank common. 
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.3.5 EQUIVALENCE Statement 

The EQUIVALENCE statement allows more than one 
identifier to represent the same quantity. 

FORM: ■; 

EQUIVALENCE.(Ri;R2,...),(Rjj,R^^^, ...),... 
where R^is a reference . (EQUIVALENCE may be abbreviated EQUiy 

The references of an EQUIVALENCE statement may be ^^^^^^^^^^ • i; 
simple variables or array identifiers or array element 
references. The subscripts of an array element must ^^ 
be integer constants . The number of subscripts must 
•be equal to the array dimension or must be one. 
Synchronous and asynchronous variables may not be 
equivalenced to each other. 

;.;:EXAMPLE: 

EQUIVALENCE(A,B,C(3))/(T(4),S (1,1,2)) 

The inclusion of two or more references in a 
parenthesis pair indicates that the quantities ^• 
;; referenced are to share same memory locations. For . ' 

■.example' "■■'■ ■':'\^ '■.■■■:': '■ ^' .'":■.. "' ^ '"■:.','-''■■ .•'' 

; , EQUIVALENCE (RED, BLUE) ■• ;. ; v /' 

specif ies that the quantities RED and BLUE are stored 
in the same place. 

When no array subscript is given, it is taken to be 
1, thus 

EQUIVALENCE (X,y) 
is the same as 

EQUIVALENCE (X,Y (1) j 

' - '30 - ,. 
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Elements of multiply dimensioned arrays may be 
referenced with a single subscript by use of the 
element successor function. For example in the 
three-dimensional array specified by 

. DIMENSION ALPHA (li^^ni^'^sy ' ^ : 

the position of element ALPHA (Kj_,K2,K3) is given by 
element position = {K3-1)*N^*N2+(K2-1)*Nt^+K, ; 

Thus the sequence 

. DIMENSION BETA (4), ALPHA (2,3,4) : 

EQUI VALENCE { BETA ( 2 ), ALPHA ( 8 ) ) 

■ ■ . '!''■■'■':' 

specifies that BETA (2) and ALPHA (2, 1/2) are stored in 
the same place. 

Since the entire arrays are shifted to satisfy the 
equivalence only the relative positions of the 
references are important. In the examples below 

EQUIVALENCE (BETA (1), ALPHA (7) )l'^^r^^^^^^:-y^^ 



O^ / 



EQUIVALENCE (BETA, ALPHA (7) ) 
will do as well. ,. 

Note that the relation of equivalence is transitive, 
e.g., the two statements. 

EQUIVALENCE (A, B), (B,C) '■' ^'v :■:■■'■' ■■. 

EQUIVALENCE (A, B, C) 

have the same effect. 

:''V ■■■.■■■''■ ■.■■■>'^ . , /- 31-- . .,■;:■/:;;. ■■V;''^^r'■;;.^■^;'■ 
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3.5.1 : EQUIVALENCE .and COMMON 

Identifiers may appear' in both COMMON and EQUIVALENCE 
statements provided the following rules are observed. 

■ No two quantities in common may be set equivalent to 
■. ;, one another. . 

Quantities placed in a common block by means of 
equivalences may cause the end of the common block 
to be extended. For example, the statements '. ■ 

^'l^.'^ [^ COMMON/R/X,.Y,Z ■ ' ■;;;■,.:,, ?/'yv^V/'/''^;-.--'' :!'' \=^; 

; ' DIMENSION A-(4); -■■'■^■-^ \ ';: . '■\^-';'^rv-'''. ■'; 3,^-';^;^ ':*^--' — ■ 

causes the common block R to extend from X to A (4), 
arranged as follows: 

X 

Y A(l) 
Z A(2) 

A(3) 

A{4) 

.Equivalence which cause extension of the start of 
.:. a common block are not allowed. For example the 

'.■'':'''■: sequence :,■ 

; ^ . common/r/x/y/z 

DIMENSION A(4) 
" . : EQUIVALENCE (X,A(3)) 
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is not permitted since it required block R 
to be arranged 

;;; A(i) ■ ..,:;■■'■■ • 

■■■• ^^2) .■,;■; ; ■ ■• ;/;■■■ '..■':'.■;.'■'.; 

■ ,x A(3) /■ : ■'. 

Y A(4) / '';-■'■' ' 
A(l) and A(2) extend the start of block R. 



3.6 . ■ EXTERNAL Statement 

.".FORM: -■,..'■■.,. .■■■..';■■ .'.-^^''-'V'. '■:'■■;;■■.'■■/■ N 

EXTERNAL identifier, identifier ,. . . , identifier 

' This statement declares the listed identifiers 
to be subprogram names. Any subprogram name 
given as an argument to another subprogram 
must appear in an EXTERNAL declaration in the 
calling program. 
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EXAMPLE: 



EXTERNAL SIN, COS 



CALL TRIGF(SIN,1.5/ANS^TOR) 
CALL TRIGF(COS,.87,ANSWER) 

END 

SUBROUTINE TRIGF (FUNC , ARG , ANSWER) 

ANS\^R = FUNC(ARG) 



RETURN 
END 
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3.7: MAXREGS Statement 

'.'■ FORM: " ■ ■ , " :,' ■ \;-' "',■ 

MAXREGS ■"' ic ■■■ ■ 
V where ic is an integer constant. 

This statement tells the compiler to limit its use of 
registers in the generated object code to the value 
specified by ic. 

There is a minimiwi number of registers required in each 
module. This lower bound is unkown at present. If ic 
is less than this number, a warning message is generated ' 
and the value of ic is reset to this lower bound., 

3.8 DATA Specification 

The data specification statements DATA, CONST, and BLOCK 
DATA are used to declare constants and specify initial , 
values for variables. These values are compiled into the 
object program. They become the values assumed by the 
variables when execiition begins. ^^^ ^ ^^ ^^^^^^^^^. '.', 

3.8.1,;, DATA Statement ■ -■;'..■■ '■■■■','::■:■':':./' 

The data to be compiled into the object program is specified 
.■'';',in'a DATA, statement. , •■/ '\ ^■■\'.v^r^'\- •.■,;.;'";;■' >''-:;,:^^^^^^ 

■'V'--' ;\':.'- ^;■ -FORM: ■/:■.'-> ;;:■■■ ;'.• [ ,■ ..^'^ ' ,: '■■ V ■ ■ : : ' V:'^^^^ '• ^"- ' ^- •' ■■- "^ 'U^ '^^^ ^ ' -" , ' '^ 

..■■'•;■'.; ■•:■■'■■ V,'- DATA' v/d/,v/d/,... ■■:;„ ■■'^/ ■'•:':■■':::.■■''/■.•■ -■ 
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where v is a variable list and d is a data list. 

The variable lists in a DATA statement consist of 
simple variables, array names, or array elements 
separated by commas. 

Variables in common may appear on the lists only 
if the DATA statement occurs in a BLOCK DATA subprogram. 
Asynchronous variables may appear in a DATA 
statement.' ^. ■ 

The data items of each data list correspond one-to-one 
with the variables of each variable list. Each data 
item specifies the value given to its corresponding 
variable.' :■■ 

Data items may be numerical constants or alphanumeric 
strings. For example 

DATA ALPHA,BETA/5,16.E-2/ :.■■;:.■ , -;.',■; -; • / ;'; 
specifies the value 5 for ALPHA and the value .16 for 
■BETA.;:, ■ ■\'-'--r':''-^^'^:'--'.:'y.\':--'''':''y 

Any data item may be preceded by an integer followed y 
by an asterisk. The integer indicates the number of 
times the item is to be repeated. For .exaxi^le y y '.y ■'■■-.■:■' .^ 

DATA A(l) ,A(2) ,A(3) ,A(4) ,A(5)/61E2 ,4*32El/ ; 

specifies 5 values for the array A; the value 6100 for 
;a(1) and the value 320 for A(2) through A(5) . . 



- 36 - 



RYAN-McFARLAND CORPORATION 



— -R M C-— 

When an unsubscripted array name is included in the . 
variable list it implies that all elements of the 
array are to be initialized. It is equivalent to . 
writing out all elements of the array in sequence. 

: EXAMPLE:' , 

The above example could be written: 

DIMENSION A (5) 
; DATA A/61E2,4*32E1/ , 

The form of the constant, rather than 'the type of the 
variable, determines the data type of the stored constant. 

Hollerith constants, or alphanumeric strings, are 
treated specially in the DATA statement. A single 
Hollerith constant may initialize more than one variable 
element, whereas any other type of constant corresponds 
to a single element. A Hollerith constant may not contain 
excess characters, but it will be extended with blanks 
so as to fill an integral number of elements. 



EXAMPLES: ■.■.:,■ ■; , 

.■:,■.■;■■;. DIMENSION i{2) ■;,•.'■ 

■■■■■■■'^ DATA I/'A' , 'B'/ ',.-^- .^^^':.-:l;-;V'';''.-. .• 
;y■.■■.•;., ,. implies ■ ■ 1(1)'. = 'A'r';/' :,'■■;'. 

'■:■'■'. ■ '■■ -1(2) = 'B '■'■'''■'/ ■ '.'■•:,-■;•■■ -v., 

,:: DIMENSION 1(2) . ::'l: ''^:\- ' ^'■:-'0'--'-:. r'-''' ■ .-■ l 
:.• : DATA I/'ABCDEFGHIJK'/ ■ "' 

.' implies 1(1) = 'ABCDEFGH' i •• V^ • : ^ ^ ^ 

",■.,;"•■:/:/ ;.,0\^^ ',;':., 1(2) = 'UK :';': V:*''-^-': ''^i:'\-.M''- ■ 

• DATA J/'ABCDEFGHIJK'/ : 

/:,V';-is-an error . ■ /'' ■]' ■■:,i\,y'^-. '''■:-' i-'-r': /■':'- \. 
..■■vDIMENSION, R(2).- ;,' 

.'•DATA r/2*'a''/- ,•';,■■ '■,;• 

'■-.implies"'.' -Rd)- = 'A' ./ ;.,.:,.;;/,:;'.... ;■■-'- :;,■•: • 

,';,■.;.■.:.■;.■■:■' Ri2) ' = .^ 'A^:■^:■;;;;.■'^■ • :\3V;v:',v^ 
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3.8.2 CONST Statement . 

The CONST statement has the same form and general 
meaning as the DATA statement, 

FORM: 

CONST v/d/,v/d/, ... 



where v is a variable list and d is a data list. The 
syntax and semantics of these lists are identical with those of 
the DATA Statement with one exception: The CONST statement . 
causes the variable to be allocated in constant memory. 
This implies that they are in fact no longer variables, 
rather, symbolic constants. Hence, they may not be the 
destination of an assignment statement or a READ statement. 
Also, they may not be asynchronous. 
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3.8.3 BLOCK DATA Statement 

■■•" ' ■< ' . ' ' '•■■'.'.•,■'■ 

■FORM: 

BLOCK DATA ;. 

This statement declares the program which follows to 
be a data specification subprogram. Data specification 
for variables in common blocks require the use of a 
BLOCK DATA subprogram. 

The first statement of the subprogram must be the 
BLOCK DATA Statement. The subprogram may contain only- 
declarative statements associated with the data being 
defined. ■..■:■; 

EXAMPLE: ■ „ ■. . ' 

'„ BLOCK DATA 
;, COMMON /R/X,Y/C/Z,W/V 
■ DIMENSION. Y (3) 
'•>"'. ■■/■COMPLEX Z 

:, DOUBLE PRECISION X 

DATA Y (1),Y(2),Y(3),/1E-1:2*3E2/ V 
DATA X,Z/11.877D0, (-1.41421,1,41421)/ 
' ■■■'■ END :■ 

Data may be entered into more than one block of common 
in one subprogram. However/ any common block mentioned 
must be listed in full. In the example above W and V ; 
. are listed in block C although no data values are defined 
■.'for'thera. '■'■■■•, ' ' 
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3.9 PRIVATE Statement 



FORM: 



PRIVATE identifier, identifier,..., identifier V 

This statement, like the EXTERNAL statement, declares 
the listed identifiers to be subprogram names. However 
it further requires that the listed subprograms must not 
be shared with any other program units. Hence, if two 
program units referenced subprogram SUBR and at least one 
of them states PRIVATE SUBR; two copies of SUBR will be 
loaded by the linker, one for each program unit. 
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4. EXPRESSIONS 

Expressions are strings of operands separated by operators. 
There are two types of FORTRAN expressions: arithmetic and ■ 
■ logical..- ■ ■■;■■'■■;■.■ 

4.1 Arithmetic Expressions 

An arithmetic expression is a sequence of basic elements 
separated by arithmetic operators and parentheses in accordance 
with mathematical convention and the rules given below. An 
arithmetic expression has a single numerical value, namely / the 
result of the calculations specified by the quantities and 
operators comprising the expression. 

The arithmetic operators are +/-,*,/,**, denoting, 
respectively, addition, subtraction, multiplication, 
division and exponentiation. 

An expression may consist o.f a single element (constant, 
variable, or function reference) ; • 

':-,:^-/. ;■'".,:; 2.71828, ■■'■::,■:/:. :\.'::v '" <.^■■:. -.^."-^ 

■ . ■■■:'■:.' ■ ■..•."■Vz(N) ^ ; '■■;■'"".'■/■■:■;".■ .■.■■■■:^.'-- '" :,■'■■'. '-■:'■'-■■■<■ '-■■': 

■ ■-/TAN(THETA) ■•.■'/'■';■;■ V■^^■^. ',':;::' ;'■'• .//^ ^\;/^ 

Compound expressions may be formed by using operators to . 
combine basic elements: 

^~~^^- "■■.',-. ■ .■:■;■ :;,,x+3',"', ..\ ": /\ ■■':';' .■^\/^';^'-- ^■v"^'^;.;' 

■,;„■/.'■■':■ ^'TOTAL/POINTS /■ ^ ■•: /\^^ '^ ■/■\ '■ '''ir :':^V ■■' .[' 

■; ;'tan(pi*m)- / ■ ,'■ ...;: 
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Any expression may be enclosed in parentheses and 
considered to be a basic element: 

(X+Y)/2 
(ZETA) . 
COS(SIN{PI*M)+X) 

Expressions may be preceded by a + or - sign: 

■ ■■ • • ■ +X- 

-(ALPHA BETA) 
-SQRT (-GAMMA) : 

However, no two operators may appear in sequence, for 
instance: 

■■■ ; X*-Y ■ , 

is improper. Use of parentheses yields the correct form 

'x*(-Y) /;-:^'V:;>.-V'--;:^'::::;. ;;■■;. ,;;^ 

By repeated use of the rules above, all permissible 
arithmetic expressions may be formed.: . 

4.1.1 Operator Precedence 

If the. precedence of operations is not given explicitly 
by parentheses, it is understood to be the following (in 
order of decreasing precedence) : 

OPERATOR V OPERATION 

** Exponentiation . 

* and / Multiplication and Division 

+ and - Addition.and Subtraction or Negat 
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For example, the expression 

A*B+C/D**E 

is taken to be 

(A*B) + (C/(D**E)) 

Sequences of operations of equal precedence are performed 
left to right except for exponentiation which is performed 
righfto left.; ,' 

EXAMPLES: 

W*X/Y/7 is evaluated as ((W*X)/Y)/7 

p,**B**C is evaluated as A** (B**C) 

4.1.2 Evaluation of Mixed-Type Expressions 

The value of a arithmetic expression may be of integer, 
real, double precision, or complex type. The type of the 
expression is determined by the types of its elements according 
to the rules which follow. 

The arithmetic types are ranked as follows: 

RANK , TYPE 



1 


Integer 


2 


Real 


3 


Double Precision 


4 


Complex , 



The type of an expression is the type of the highest ranking 
element in the expression. 
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Each Operation within an expression is evaluated in the type 
of the operations highest ranking operand. Thus the 
evaluation of an expression is not changed to a higher 
rank until necessary. 

EXAMPLE: 

I/J+R*DP*C 
is evaluated as ^ / / /* v \ "n ^ 

Integer expressions are evaluated using binary integer 
arithmetic throughout. In integer arithmetic fractional 
parts arising in division are truncated, not rounded. For 
lexample: ., 

7/3 yields 2; 3/7 yields 
All other calculations use binary floating point arithmetic. 

Conversions to higher rank are performed as follows: 

1. An integer quantity becomes the integer part of a real 
quantity. The fractional part is zero. \ 

2. A real quantity becomes the most significant part of a 
double precision real quantity. The least significant : 

,,■■,. part is' zero. .^^ 

3. A real quantity becomes the. real part of a complex 
quantity. The imaginary part is zero. 

4. A double precision quantity is ".converted to single 
precision and becomes the real part of a complex 
quantity. The imaginary part is zero. ^ 
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4.2 Logical Expressions 

There are four basic elements used in FORTRAN logical 
expressions: logical constants, logical type variables, 
logical type functional references, and relations. All 
of these basic elements represent logical quantities. 

A logical quantity may have either of two values: 
true or false. Logical quantities occupy one word 
,.'.' of .memory. ,..■■■ 



4.2.1.; ; Relations 

Relations are constructed from numerical expressions of 
integer, real, or double precision type through the use 

of relational operators. The relational operators are: 

OPERATOR RELATION 

•GT. greater than 

•GE. greater than or equal to 

.LT, less than 

.LE. less than or equal to 

.EQ. equal to 

.NE. not equal to 
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The enclosing periods are part of the operator and must 
be present. 

Two expressions of integer, real, or double precision type 
separated by a relational operator form a relation. For 
example 

' X+2.LE.3*y 

is a relation. The entire relation constitutes a basic 
logical element.. 

The value of such an element is true if the relation 
expressed is true and false otherwise. In the example 
above, the element has the value true if X is 2 and Y 
is 2, and the value false if X is 2 and Y is 1. 

Complex operands are allowed for the operators .EQ. and 
.NE. 'Only.,' 

Relational operators have lower precedence than arithmetic 
operators . 
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4.2.2 Logical Operators 

The logical operators are .NOT., .AND. and .OR. 
denoting, respectively, logical negation, logical multipli- 
cation and logical addition. The enclosing periods are 
part of the operators and must be present. The logical 
operators are defined as follows (where P and Q are 
logical expressions); 



.NOT.P 



true if P is false, 
false if P is true 



P.AND.Q 



true if P and Q are both true, 
otherwise false . 



P.OR.Q 



false if P and Q are both 
•false, otherwise ttue 



A logical expression may consist of a single logical 
element. For example: 



.TRUE. 
BOOL (N) 
X,GE.3.14159 
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Single elements may be combined through use of the logical 
operators .AND. and .OR. to form compound expressions / 
such as: 

TVAL. AND. INDEX ; 
BOOL (M) .OR.K.EQ. LIMIT 

Any logical expression may be enclosed in parentheses and 
regarded as an element: • 

(T.OR.S) .AND. (R.OR.Q) 
(BOOL(M) ) 
PARITY ( (2. GT.Y. OR. X.GE.Y) .AND. NEVER) ■ 

Any logical expression may be preceded by. the operator 
.NOT. as in: 

' .NOT.T 
: .N0T.X+7.GT.Y+Z 
BOOL(K) .AND..N0T. (TVAL.OR.R) 

By repeated use of these rules all permissible logical 
expressions may be formed. 

When the precedence of operations is not given by 
parentheses , it is understood to be the following (in 
decreasing order of precedence) : 

OPERATOR. OPERATION . 

.NOT. logical negation 

.AND. logical multiplication 

.OR. , logical addition 
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Thus the expression " 

T.AND. .NOT^S.OR. .NOT.P.AND.R 
is interpreted 

(T.AND.(.NOT.S)) .OR.((.NOT.P) .AND.R) 
4.3 Summary of Operator Precedence 

When the precedence of operators is not given explicitly 
by parentheses, it is understood to be as follows (in. .order 
of decreasing precedence) : 



OPERATOR 

*'/ "- 
' +/-■ 
.GT. / .GE. , .LT. / 
.LE. , .EQ./ .NE. 

■; .NOT. 
': / .AND. : : 
.OR. 



OPERATION 

exponential 
multiply, divide 
add , subtract , negate 

relational 
logical negation 
logical multiply 
logical add 



For example, the logical expression 

. NOT. ZETA**2+Y*MASS.GT.K-2. OR. PARITY. AND. X.EQ.y 
is interpreted •■.,,,■■ . \ \' ■ :'''.:''' 

{.nOTJii (ZETA**2) + (Y*MASS) ) .GT. (K-2) ) ) .OR. (PARITY. AND, 
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• 5. ASSIGNMENT STATEMENTS 

Assignment statements are the basic executable statements 
of the FORTRAN language. Two types of assignment statements 
are available: arithmetic and logical. 

5.1 Arithmetic Assignment Statement ' 

The arithmetic assignment statement specifies an arithmetic 
expression to be evaluated and a variable to which the 
expression value is to be assigned. 

„■■ FORM: .■■, 

' variable = expression 

The character "=" is an operational symbol signifying 
replacement, not equality. Thus the first example below • 
means "take the current value of Y/ double it, and assign 
',: the result to Y.".- 

^'■..■"^■:;: ■EXAMPLES :';:■;:..• ■'-.■'V" 

::.;.;;■■•;;■;■ y = 2*Y^.^-:;^ ,■'.;/■; ,/;^T' ■.?■■'■'' ^'^'■'■''-■■if'y '-':'■ ■■'..■■■■',■.'■;::'■' 

;X(N)= N*ZETA(ALPHA)*(M/PI)+(1. 0,-1.0) ;; 

Type conversion is provided if the variable is of a type 
different from the expression; .^^^^i - : 

5.2 Mixed-Type Assignment 

Mixed-type assignment involves arithmetic assignment statements 
in which the type of the expression on the right differs from 
the type of the variable on the left. The evaluated express&lon 
is converted to the type of the variable. The following 
table gives the conversions for all combinations of expressions 
■and variables.' ' 
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Type of Variable Type of Expression 



INTEGER 
INTEGER 

INTEGER 

INTEGER 

REAL 

REAL 
REAL 



INTEGER 
REAL 

DOUBLE PRECISION 

COMPLEX 

INTEGER 

REAL 

DOUBLE PRECISION 



REAL .COMPLEX 

DOUBLE PRECISION INTEGER 

DOUBLE PRECISION REAL 

DOUBLE PRECISION ' DOUBLE PRECISION 
DOUBLE PRECISION •. COMPLEX 



COMPLEX 

COMPLEX 
COMPLEX 

COMPLEX 



INTEGER 



REAL 



DOUBLE PRECISION 



COMPLEX 
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Conversion 



None. 



Truncate fractional part 
convert to integer form. 

Truncate fractional part 
convert to integer form. 

Truncate fractional part 
of real part, convert to 
integer form. 

Convert to floating- 
point form. 

None. 

Take first word of ex- 
tended floating point. 

Take real part. 

Convert to extended 
floating point fo3cm. 

Extend single floating 
point to extended form. 

None. 

Extend real part to 
extended floating point 
■ form. ; . 

Convert to real form, 
assign to real part, 
assign zero imaginary. 

Assign to real part, 
assign zero imaginary. 

Take first word of 
extended floating point , 
assign to real part, 
assign zero imaginary. 

None.. ■.= ;:. ■•^,.^ 
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Assignment Statements of the form 

variable = Hollerith constant 
are special cased. The character string represented by the 
Hollerith constant is transferred to the variable without 
any type conversion. The string is stored as indicated in 
section 2.4.6 The nxoitiber of characters cannot be greater 
than the number of bytes in the variable. 

■ EXAMPLE: 

X = 'AB' 

implies the eight bytes represented by X will appear as . 



A 


B 


blank 


blank 


blank 


blank 


blank 


blank 



5.3 Logical Assignment Statement 

The logical assignment statement specifies a logical expression 
to be evaluated and logical variable to which the expression 
value to be assigned. 



.;-.■■•■■ FORM: ■ 

: variable =, expression ^//.M ■•■;/';:, ':^^ ■';-'■■ ::■ 

Both the variable and expression must have logical type, 



EXAMPLES: 



LOGICAL LA , LB , LC , LD 
LA = LB.AND.LC.AND.LD 
LB = .NOT. LA 
LC = A.GT.B.OR.C.EQ.D 
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6. CONTROL STATEMENTS 



The normal flow of a FORTRAN program is sequentially 
through the statements in the order in which they are given 
to the compiler. By means of control statements, the 
programmer may specify the flow of the program. 

6 . 1 Statement Numbers 

FORTRAN statements may be given numbers to be referenced 
by control statements. A statement number is written as an 
unsigned integer of five digits or less. Leading zeroes 
and embedded blanks are ignored.. 

Although statement numbers are written as integers/ they 
do not represent numerical quantities. Statement numbers 
represent statement labels, a distinct basic, 
quantity. Statement numbers are used for program control, 
not numerical calculation. 

---...Statement numbers must be unique, i.e., no two statements 
may have the same number. 

6.2 GO TO Statements '■// ^ ■,/'■;■'-■''■''■'■'■■ ■'^■'■■:>''\ '■ . 

GO TO statements unconditionally transfer control from one 
part of the program to another. There are three forms of 
the GO TO statement: unconditional, computed, and assigned. 
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6.2.1 Unconditional GO TO Statement 

FORM: 

GO TO n 
where n is a statement number. 

This statement transfers control to the statement ntimbered n. 

•EXAMPLE:,.,' 

GO TO 345 

6.2.2 Computed GO TO Statement 

■ 'FORM:' ■■ 

GO TO (n, ,n2/ .. ./n.) /Variable 
where nn/Hj/ .. ./n, are statement numbers. 

The variable must be of integer type. This statement 
transfers control to the statement numbered nj^/n2/ . . .nj^ if 
the variable has the value l,2,...k, respectively. Values 
outside the range 1 through k cause transfer of control to 
the following statement. The coimna preceding the variable 
may be omitted. .':";.,. 

;■:; EXAMPLES:' .;'■.; .■■.■:■,■.■ 

.GO TO (22,3,7) /SWITCH : 

GOTO (1,2,62,78) Y ^^:^^^^^^^^^^^ :^^^^:^^^'^^^^^; :■ 



RYAN-McFARLAND CORPORATION 



R M C 



6.2.3 Assigned GO TO Statements . 

,'- , FORMS: , . , 

GO TO variable 
GO TO variable, (nj^,n2,.. .,nj^) 

~~^^where n2_,n2/ • • -Hj^ are statement numbers. 

The second form is allowed for compatibility only; the . \ 
labels n^^, .. .ttj^ are not used. The comma following the 
variable may be omitted. 

The variable must be a scalar of integer type and may not 
be an asynchronous variable. This statement transfers control 
to the statement whose number was last assigned to the variable 
The assignment must take place in a previously executed ASSIGN 
■. statement.. , ■'■•■■■' 

The variable is a control variable, having a label as a 
value, not a numerical quantity. ;^^^^^:^^^ ^;-^ 

•.■:,.- EXAMPLES :■', . 

■.;';:;.■:..'', GO ' TO ERROR • ;^; /■\, ■;■;'•■:/ >',;,:: .,.■,;','■•'>';., 
■■'go TO" X(100,200)': ■\/^.-- -.-v ■■V^- >'S 
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6.2.4 ASSIGN Statement 



■ FORM: 

ASSIGN Statement number TO variable 

The variable must be^^of integer type and may not be an 
asynchronous variable. This statement assigns the value 
of the variable for a subsequent assigned GO TO statement. 
The statement number represents the statement to which the 
assigned GO TO will transfer control. 

■',',. EXAMPLES:. ; ,/ 

■ ._ ASSIGN 7 TO LABEL^ : ;: V ';^.V^' • 
ASSIGN 13 TO ERROR 
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6,3 Arithmetic IF Statement 



FORM: 



IF (expression) n, /n^/n- 
where n,/n2/n2 are statement numbers. 

This statement transfers control to the statement 
niombered nj^,n20r n^ if the value of the expression is 
less than, equal to, or greater than zero, respectively. 
The expression must be of integer, real, or double 
precision type. 

:■; EXAMPLES: , :■ ' 

IF (ETA) 4, 7, 12 
IF (KAPPA-L(10))20,14,14 

6.4 Logical IF Statement 

■i FORM:' ■.;.•, . , .-:' 

. .; IF (expression)S 

where S is a complete statement. 

The expression must be a logical expression. S may be any 
imperative (executable) statement other than a DO statement 
or another logical IF statement. 

If the value of the expression is false, then control 
passes to the next sequential statement. 
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If the value of the expression is true, statement S is 
executed. After execution of S, control passes to the 
next sequential statement unless S is an arithmetic IF 
statement or GO TO type statement in which case control is 
transferred as indicated. 

As an example, consider the statements 

IF(B)Y=X*SIN(Z) 
W = Y**2 

If the value of B is true the statements Y=X*SIN(Z) and 
W = y**2 are executed in that order. If the value of B 
is false, the statement y=X*SIN(Z) is not executed. 

■. .EXAMPLES: :' 

IF(T.0R.S)X=Y+1 

IF (Z.GT.X(K) ) CALL SWITCH (X,Y) ,;: 

IF(K.EQ.INDEX)GO TO 15 



6.5 DO Statement 
FORMS: 



DO n index = initial, limit 
DO n index = initial, limit, step 
where n is a statement niomber. 

The index must be a simple integer variable, and may not" be an 
asynchronous variable. The initial and limit may be integer 
simple variables, signed integer constants, or , integer ex- ' 
pressions. The step must be an integer simple variable, an 
integer constant or an integer expression. If the step is not 
given, it is understood to be 1- 
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The DO statement causes the statements which follow, up to 
and including the statement numbered n, to be executed 
repeatedly. This group of statements is called the range 
of the DO statement. Initially, the initial value is 
assigned to the index. Thereafter, after each execution 
of the range, the step value is added to the index value 
and the result assigned to the index. 

Prior to each execution of the range, the index value is 
compared with the limit value. If the index value does 
not exceed the limit value, the range is executed. This 
differs from Standard FORTRAN where the range is always 
executed once before the first test. 

After the last execution of the range, control passes to : 
the statement immediately following the range. This exit 
from the range is called the normal exit. Exit may. also 
be accomplished by a transfer from within the range. 

The range of a DO statement may include other DO statements 
provided that the range of each contained DO statement is 
entirely within the range of the containing DO statement. 

Within the range of a DO statement, the index is available 
for use as an ordinary variable. After a transfer exit 
from the range, the index retains its current value and is 
available for use as an ordinary variable. After a normal 
exit from the range, the index has the value which caused the 
exit.- 

The values of the index, limit, and step may be altered 
within the range of the DO statement. ^UL^Jhjir^xi 'tkju /V^aJLuj^^ 
JUyml^ (^ ^^^p i-^^^M ^r^^^ a^u^-^ J^lcf). 
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The range of a DO statement must not end with a GO TO type 
statement or an arithmetic IP statement. A logical IF 

.statement is allowed as the last statement of the range, 

provided the logical IF does not contain a GO TO type 
statement or an arithmetic IF. In this case, control is 
transferred thus: 

The range is considered ended when and if. control 
would normally pass to the statement following the 
logical IF statement. 

As an example, consider the sequence: 

,. DO 5K = 1,4 ' 

5 IF(X(K).GT.y (K))y(K)=X(K) 
6... 

Statement 5 is executed four times, whether the statement 
Y(K) = X(K) is executed or not. Statement 6 is hot executed 
until statement 5 has been executed four times. 

:,.■ EXAMPLES : ■ ■/■■"':; /V^^: /-•■:'.■ \^.'' ■■>-■• ^^ 

,■; , DO 22 L ='.1,30 ■■■/■'■;, ■.,• .• ■' ;;;■:..;-; 

/^.■D0 45 K = 2,LiMiT,i3\. ;;■';.;;■ : -•;..■;;;■■-',; 

6.6 CONTINUE Statement ^^ ^:: : " , ' 

FORM-: 

CONTINUE . 

. This Statement is a dummy statement, used primarily as a 
target point for transfers, particularly as the last statement 
in the range of a DO statement. For example *in the sequence 
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DO 7K = START, END 



IF(X(K))22,13,7 : 
7 CONTINUE 

a positive value X(K) begins another execution of the range. 
The CONTINUE provides a target address for the IF statement 
and ends the range of the DO statement. 

6.7 PAUSE Statement 

■ •■■FORMS: ■/■''•:'■:' \\'':' '■■''■': \: .'■''..::■:[■'■ ':',,: 

, ■ PAUSE . ■ . , ',:,-■■. ' , - 

■ ■ ' ■ PAUSE n. . 

PAUSE 'character string' 

where n is an integer constant. 

This statement caiises- the operand tq be' displayed on the sygteig 
output device, . Jf no operaind $s given/ zero'" is displayed.' ''e 



EXAMPLE: 

PAUSE 167 
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6.8 STOP Statement 

■ FORMS: , ■ 

. STOP \ ■' '■'■ 

■STOP n 
STOP ' character string' 

where n is an integer constant. 

This statement terminates the program. It does not stop 
the machine and may be used to transfer control to the 
operating system. 

6.9 PURGE Statement 



FORM: . 

PURGE •Nj_/N2/...Njj 

where the N. are asynchronous variables. ; 

This statements causes all the named variables to be 
made empty, regardless of their former state. 
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7. INPUT/OUTPUT 

Input/output statements specify the transfer of information 
between computer memory and input/output devices, or between 
one part of computer memory and another. These statements 
also allow the program to manipulate I/O devices. 

Information may be transferred in two different forms: 
formatted and unformatted. The unformatted form involves 
no data conversion, data is transferred in its internal 
format. Formatted data is converted from internal to 
external form, or vice versa, under control of a FORMAT 
^specification in the program. 

7.1 Input/Output Lists 

Input/output statements may contain a list of variables which 
are to receive values on input or are to provide values for 
output. The list of a transmission statement specif ies "the 
order of transmission of the variable values. During input, 
the new values of listed variables may be used in subscript . 
or control expressions for variables appealing later in the 
■..list. For example 

IffiAD (l,3)L,A(L),B(L+l)^^^^^^^y^^;^^^^^^^^.-^^^; ; ; \ 
reads a new value of L' and uses this value in the subscripts 
• of A and.'B.. '■''■' y '■■'■.. .,■•'■■ ■'•^ :■■•''■■■■■ 

The transmission of array variables may be controlled by , • 
indexing similar to that used in the DO statement. The 
list of controlled variables, followed by the index control, 
is enclosed in parentheses and the whole acts as a single •• 

element of the list. 
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For example 

KEAD(7,23) (X(K)/K=1,4) • 

is equivalent to 

READ{7,23) X (1) /X(2) ,X(3) ,X(4) 

The initial, limit/ and step values, are given as in the* 
DO statement: 

READ(4,2) N/ (GAIN(K). ,K=1/M,N) " 

The indexing may be compounded as in the following 

READ (1,13) ((MASS(K,L)K=1,5) ,L=l/4) 

This statement reads ■ in the elements of array MASS in the 

order ■ 

MASS (1,1) , MASS (2,1) , . . . ,MASS (5,1) , MASS (1,2) ,.. ., MASS (5, 4) 



If an entire array is to be transmitted, the indexing may . 
be omitted and only the array identifier written. The array 
is transmitted in order of increasing subscripts with the 
first subscript varying most rapidly. Thus the example 
above can be written , . •;.■:,-', .^",., '; ^' ; ■ ■ :/ 

■ \ READ (1,13) MASS ■„:;;■'.■.■■.■.. ^:.^.'v- ■ --l:^'- ;:::■/'■■■'■''' :' ■';,•', 
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7.2 Input/Output Statement Parameters 

Many input/output statements have similar formats. The 
following definitions apply to all • input/output statements 
. in. which they may appear: 

u Logical I/O unit nixmber which may be an unsigned 
integer constant or an integer simple variable and 
may not be an asynchronous variable. The 
correspondence between unit number and actual I/O 
device is determined by machine configuration and 
operating system. 

f Format declaration identifier which may be the 
statement number of a FORMAT statement in the 
program or an array name where the format 
specification is to be found, f may not be an 
asynchronous variable. • 

list Aiv I/O list as defined in section 7.1. 

S, Statement number to which program control is 
transferred in the event of detecting an end- 
of-file indication on the I/O unit while processing 
. the statement. '■■'■'":\^^, 

■ S2 Statement number to which program control is 

transferred' if any error is detected during the 
processing of .the statement. 
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7.3 Sequential Input/Output Statements 

These statements treat input and output to and from I/O 
units as if the units contained sequential files each 
composed of an ordered set of records. Each time a READ 
or WRITE statement is executed, at least one record is 
processed. And as each record is processed/ the file is 
positioned to read or write the next sequential record. 

7.3.1 READ Statement 

- , FORMS: ' ■ ■■y,".' .'. 

. , READ (u,f ,END=Sj_,ERi<^S2)list^^^^^;^; ^. 

• READ (u,END=S, /ERR=S) list 

■. ... ,2 ■ ■ ■ 

where u is an I/O unit designation and f is a format 
reference. ',-,, ^ ',■./.■■■'• •■ 

The parameters END=Sji and ERR=S2 are optional and their 
order may be reversed. ' 

The READ statement causes information to be read from the 
I/O unit designated and stored in memory as values of 
the variables in the list. 

In transmission of formatted data/ the conversion from 
external to internal form is specified by the format 
referenced (first foinn) . '■'-.'■■''-■■[■'■■'■/■ '''i'-'--- ': ' 
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When binary data is transmitted the format reference is 
omitted (second form) . 

. EXAMPLES: ■ ^ 

READ(1,15 END=100)ETA,PI : 

READ (K+L,. 10) GAIN, ZAI 

READ(M,FMT,ERR=999, END=100) (TABL(K) ,K=1,M) 

READ (TAPE) (TEMP (L) ,L=1, 100) 

7.3.2 V7RITE Statement 



FORMS: 

WRITE (u,f,END=Sj^,ERR=S2) list 
WRITE (u,END=Sj ,ERR=S2) list 

where u is an I/O unit designation and f is a format 
reference. 

The END=S, and ERR=S 2 parameters are optional and their 
order may be reversed. 

The WRITE statement causes the values of the variables of 
the list (df^ be transmitted from memory to the designated 
I/O unit. 

In transmission of formatted data, the conversion from 
""internal to ; external form is specified by the format 
referenced (first form). 
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When binary data is transmitted the format reference is 
omitted (second form) . 

EXAMPLES: 

WRITE (2,15) ZILCH 

WRITE(K3,4,)(A(K),K=2;20),ICHI . 

WRITE(N1,C0NV)H1,H2 

WRITE ( 4 ) NUMB , ( SYMB ( J) , J=l / NUMB ) / 

7.4 Internal Transmission • 



The ENCODE and DECODE statements are similar to formatted 
READ .and WRITE statement except that no I/O unit is used in 
the data transfer. Data is transferred under format 
specifications from one area of computer memory to another. 



7.4.1 ENCODE Statement 

•■ FORM: ., 

ENCODE (c,f/b/n) list 

, ■ • ■ •' or ■. ■" . .''■■; 

ENCODE (c,f,b) list , 

where c is an integer constant or integer variable 

describing the number of characters per record 
in storage.. • .'■;.' 

f is a format reference. • 

b is a simple variable, array reference, or array, 
name at which the first record is to start. This 
is the "buffer." 

,■ ■ ,.■'■■ J ■ ■■• 
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n is a simple integer variable into which the 

number of characters actually processed will be 
stored, ft may not be. an asynchronous variable. 

list as defined for I/O list. 

This statement converts the data in the list according to the 
format and stores it in records beginning at b/ with c character^ 
per record. If the format attempts to convert more than c 
characters per record, a diagnostic is given. If the format 
converts less than c characters, the remainder of the record 
is filled with blanks. 

EXAMPLE: 

ENCODE (80, 100, BUFF) A, B,C' 
ENCODE ( I , FMT , B , COUNT) D , Z (J) 

7.4.2 DECODE Statement 

.' ■ FORM: ■'■ .■■,..■';;.■. .■'■..., V ; ■ ■ 

DECODE (c,f,b,n) list •: '. 

■ O^ ■■■ ;■ ■ •• •'' ■■ 

. DECODE {G,f,b) list ; ;: ' 

where c,f,b,n are as defined for ENCODE. 

This statement converts and edits the data' from the records 
starting at b and consisting of c characters each, and stores 
it in the variables specified in the list. When the format 
specifies more than c characters per record, a diagnostic is 
given. When fewer than c characters per record are specified, 
the remainder of the record is ignored. 

■..EXAMPLE:,'.,;.. , V;,.„.-^' ...-•: ■ 

DECODE (78 ,103, BUFFER) LDATA 
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7.5 FORMAT Specifications 

The format designator f appearing in formatted I/O statements 
may be the name of an array containing a format string or it 
may be the statement label of 'a FORMAT statement. 

FORM: 

■ FORMAT(S2^,S2/.../Sj^) . 
where S is a data field specification. 

7.5.1 Nvuneric Fields / 

Conversion of numerical data may be one of six types. 

1.. 'type - D ^.' ■■ 

internal form — binary floating point (double 

precision) 
external form — decimal floating point (double 
■^ precision) ,■. 

2. '. type - E ', . ■■ " \,-. 

internal form — binary floating point 
external form —decimal floating point . 

3. ■ type - F ■■.,■■■ 

internal form — binary floating point 
external form— decimal fixed point 

■4.- , type - G . , 

internal form — binary floating point 
external form— decimal fixed point or 

floating point 
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5. type - I 

internal form — binary integer 
external form — decimal integer 

6. type - z 

internal form — binary integer 
external form — hexadecimal integer 

These types of conversion are specified by the forms 

1.- ■ Dw.d 
2. . ■ Ew.d 

.3. ■', ■ Fw.d ■ ■'. 

■ 4. ■ • • Gw.d ';. 
■5.,: "■ Iw' 
6, Zw. 

^respectively. The letter D,E,F,G,l/ or Z designates the 
conversion type; w is an integer specifying the field width; 
d is an integer specifying the number of decimal places to 
the right of the decimal point. As an aid in conversion, the 
letter O will be allowed and treated as a Z. • For example, 
the , statement .. 

FORMAT(I5,F10.2,D25.15) 
could be used to output the line 

32 -17.60 5.9625478777541D03 
on the output listing. 

The type of conversion used should correspond to the type of the 
variable in the input-output list. I conversion is used for 
integer type variables, E, F, or G conversion is used for real 
type variables, and D conversion is used for double precision 
type variables. 
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The decimal fixed point number (type F) has a decimal point 
but no exponent, whereas the decimal floating point (type 
E or D) has an exponent. On -output/ the exponent always has 
the form shown, i.e., and "E" or "D" followed by a signed, two 
digit integer. On input, however, the "E", "D", or the "+" 
sign, or the entire exponent may be omitted on the external form 
For example, the following are all valid E15. 6 fields: 

..■ .317250+2 ■; -■■■;:;.■ 

■ ,: >3i7250E2 ..;/ ■:/^ '■.,:;■■■\^■•■,,;■^; ■';■ . /:'^ 

.042739-45 ;/-■■■ ^/^■^■■■■^■,. ■^//^V..'^' :\ ■■/;■■ '/ 
■31064 ..■ ■'/'''■';■■''.'/■■'■'-■';;■ 

The field width w includes all of the characters (decimal point, 
signs, blanks, etc. ) which comprise the number . If a number is 
too long for its specified field, the excess characters are 
lost. Since numbers are right justified in their fields, the 
loss is from the most significant part of the number. 

During input, the appearance of a decimal point "."in an 
E, D, or F type number overrides the d specification of the 
field. In the absence of an explicit decimal point, the point 
is positioned d places from the right of the field, not countinc 
the exponent, if present. For example, a number with external 
appearance 271828E-1 and specification E12.5 is interpreted / 

■ . ■ as 2. 71828E-1. ;,/.''-v. •■::/:';■■■/:;;;,;:::■''' -'^ ^' ■"■■::[■): ■'\.:. 

7.5.2; Scale Factors 

Scale factors may be specified for D, E, and F type conversions 
A scale factor is written nP where P is the identifying 
~~:;;^character and n is a signed or unsigned integer specifying the 
scale factor.- •■' ■,■'■ ' /'i'.-^ ■'■';■•/■"..: '^"•..■■-.; ■,'■.'•■ :■ ' 
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For F type conversion the scale factor specifies a power 
of ten such that ' 

external niunber = (internal number) * (power of ten) 

For D and E type conversions, the scale factor multiplies 
the number by a power of ten but the exponent is changed 
accordingly, leaving the number unchanged except in form. 
For example if the statement 

F0RMAT(F8.3,E16.5) 

corresponds to the line . 

'■26.45i;\ • •■''■'-4a32lE-02 ;,V', •;,':V;'/- ; ■■^•' ;:,'., ., 

then the statement ':"':'■''''.. ':\''. 

; ■ F0RMAT(-1PF8.3,2PE16.5) ' 

corresponds to the. line ■ 

2.645 -41.32100E-03 

When no scale factor is given, it is understood to be 
for F and 1 for D and E. However, once a scale factor is 
given, it holds for all following D, E, and F type conversion 
within the same format. The scale factor is reset to zero 
or one by giving a scale factor of zero or one, respectively. 

Scale factors have no effect on I conversions. 
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7.5.3 G-Fields 



Output under control of a G-f ield is dependent on the 
magnitude of the floating point number being converted. 
Where m represents the magnitude of the number, the 
following table shows the relationship between m and the 
conversion field to be used. 

Magnitude Conversion Field 



0.1=m=l F(w-4).d, 4X 

1^=10 F(w-4) . (drl) ,4X 



, -d-2< <- „d-l 

10 =m=10 F{w-4).l/ 4X 

10 =m=10 . . F(w-4) .0, 4X 



m=.l or m=10 • sEw.d 



s is the current scale factor and applies only when the 
E conversion field is used/ 4X denotes a field of four 
spaces. ■ '■ r' .'■:.:''■■'' '■:.,/: 

Input under control of a G-f ield is the same as for the 
F-field. . .■:■ 
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7.5.4 Logical Fields 



Logical data can be transmitted in a manner similar to 
numeric data by use of the form: 



Lw 



where L is the control character and w is an integer 
specifying the field width. 

Data is transmitted as the value of a logical variable 
in- the input-output list..':;;-;-';;.^\ ^ 

On input/ the data field is inspected for a T or F, if , 
one is found, the value of the logical variable will be 
stored as true or false, respectively. If the data 
field contains no T or F, a value of false will be stored. 

On output, w-1 blanks followed by T or F will be output 
if the value of the logical variable is true or false, 
respectively. 
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7.5.5 Alphanumeric Fields 

Alphanumeric data can be transmitted in a manner similar 
to numeric data by use of the form Aw or Rw; A and R are 
the control characters and w is the number of characters 
in the field. The alphanumeric characters are transmitted 
as the value of a variable in an input-output list. The 
variable may be of any type. For example/ the sequence 

, READ (2,5)V 

5 FORMAT (A4) 

causes four characters to be read and placed in memory 
as the value of the variable V. 

The character information is transferred as 8 bit ASCII 
characters/ stored 8 characters per 64 bit word. 

Although w may have any value, the number of characters 
transmitted is limited by the maximum nvunber of characters 
which can be stored in the space allotted for the variable. 
~~^'' This maximum depend^s upon the variable type. If w exceeds 
the maximum/ leading characters are lost on input and re- 
placed with blanks on output. When w is less than the 
maximum, the A format causes left justification with 
blank fill on input and only the left-most w characters 
are used for output. The R format causes right justification 
with binary zero fill on input and only the right-most 
w characters are used for output. 
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7.5.6 Alphanumeric Constant Field s 

An alphanumeric constant may be specified within a format by 
—-.'preceding the alphanumeric string by the form nH. H is the 
control character and n is the number of characters in. the 
string, counting blanks. For example, the statement 

F0RMAT(17H PROGRAM COMPLETE) 
can ba used to output 

PROGRAM COMPLETE 
on the output listing. 

Apostrophe delimited alphanumeric strings may be used in 
the same manner. 



7.5.7 Mixed Fields 



An alphanumeric format field may be placed among other fields 
of the format. For example, the statement : 

■ FORMAT (15, 8H FORCE = F10.5) '^^^^-^ • '■ 
can be used to output the line ; 

■ 22' FORCE =■ l7.68901^.'.:^^; \;;''\;.v;';'::;'^ 

Note that the separating comma may be omitted after an alpha- 
numeric format field. 

7.5.8 Blank or Skip Fields 

Blanks may be introduced into an output record or characters 
skipped on an input record by use of the specification nX. 
The control character is X and n is the numb ei; of blanks, or 
characters skipped, n must be greater than zero. 
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For example/ the statement 

FORMAT (5H STEPl5,10X,3Hy = F7.3) 
may be used to output the line 

STEP 28 Y = -3.872 
where ten blanks separate the two quantities. 



7.5.9 Tabulation 



The position in the record where the transfer of data is 

to begin can be specif ied^T format conversion. The specif icatio 

is Tn where n is the character position.' For printed output, 

the first character is for carriage control and should not be 

counted.. 

. .EXAMPLE: 
FORMAT(T20, 'NAME' ,T40, 'AGE', T1/6H GRADE) 

would print a line: 



Position 


1 


Position 19 


Position 39 








' • 


GRADE 




NAME 


AGE 
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7.5.10 Repetition of Field Specifications 

Repetition "of a field specification may be specified by 
preceding the control characfter D, E/.F, G, I by an 
unsigned integer giving the number of repetitions desired. 
^- For example 



FORMAT ( 2E12 . 4 , 31 5) 
is equivalent to 

F0RMAT(E12.4,E12.4/I5/I5,I5) 

7.5.11 Repetition of Groups ' 

A group of field specifications may be repeated by 
enclosing the group in parentheses and preceding the whole 
with the repetition number. 

For example' 

F0RMAT(2I8,2(EI5.5/2(F8.3))) 



is equivalent to 

F0RMAT(2I8,E15.5,2F8.3,E15.5,2F8.3) 

Up to nine levels of parentheses are allowed in group 
repetition, in addition to those enclosing the entire 
format. For example/^the statement • 

F0RMAT(I5/2(E15.5/2(F8.3))) . 

-t 
-■exb4b3rfes-^feh6-max4m«ft-de grGO of noG feifi9^ 3?he outermost 

parenthesis pair is termed level zero, the next level 

one, and the innermost level two. 

^19 -■■■■.■•■:';, 
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7.5.12 Complex Fields 

Complex quantities are transmitted as two independent real 
quantities. The format specification is given as two 
successive real specifications or one repeated real 
specification. For instance, the statement 

F0RMAT(2E15.4,2(F8.3,F8.5)) 

y could be used in the transmission of three complex 
quantities. 

7.5.13 Multiple-Record Formats 

To handle a group of input-output records where different 
records have different field specifications, a slash "/" 
is used to indicate, a new record. For example, the , 
'.statement 

FORMAT (31 8/15, 2F8. 4) -ry; ^ . 

..," is :equivalent to ;■ 

^ /fORMAT(3I8) V /^■■■:^■■■•;/;■^^;■■;;:■■v;y■'■';^^^^^^^ 
■for the first record and 

, , ■ F0RMAT(I5,2F8.4) ;,' 
for the second record. 
The separating comma may be omitted when a slash is used. 

■■■■■'. . . ■ ■ ,'. : ■■■*.'■■;,'■ ■ . ' ' 
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Blank records may be written on output or records 
skipped on input by using consecutive slashes. 

Both the slash and the closing parentheses at the end 
of the format indicate the. termination of a record. 
If the list of an input-output statement dictates that 
transmission of data is to continue after the closing 
parentheses of the format is reached, the format is 
repeated from the last open parentheses level of one 
or zero. If this parenthesis is preceded by a repeat 
specification, the repeat specif ication is reused. 
Thus the statement 

F0RMATCF7,2,2(E15.5,E15.4).,I7) ' :■; 

■ causes the format .;. ':..-■ v:-:;' .\: 

'■■■ . ;•V,::vF7■.2,•2CE15.5,El5.4),I7;■^■;■;•,:.;::;:,: ■'-■ ,V-r- ■'■•■■ ^■'•■; 
to be used on the first record and the format ■ 
'V.:^;;',2(E15.5,E15.4) ,17, , / z-' ^■;-' ■■''■/.:;•:;■■:; V\:\^^V 
on. 'succeeding .records, ::•■ 

As a further example, consider : < : ;;• 

' F0RMAT(J'7.2/C2(E15.5,E15.4) ,17))'^^ 
the first record has the format ?."•.; ^ 

' ' ■■■ ■•■'■. F7.2' ' , ;:;• . /, ■■'":^ ■■:■:'-'•, ^ /■'•!'■ ■• ' ■■■: ;■ ■■ , .'- .: 

successive records have the format 
"''^■'^ ■^■■,2 (E15.5,E15,4) ,'l7;;.y ■^-■) 
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7 . 5 . 14 Formats Stored as Data 

The character string comprising a format specification may- 
be stored as the values of an array. Input-output 
statements may reference the format ' by giving the array . 
name rather than the statement number of a FORMAT, 
statement. The stored format has the same form as a 
FORMAT statement excluding the word "FORMAT". The . ; 
enclosing parentheses are included. 

As an example/ consider the sequence 

:';;■.■■.;■. /DIMENSION' SKELET0N(2) '■.■^:/^,::.' r-'-'-'^yl 

' READ (5,1) , (SKELETON (I), I - 1,2) ^^ ^^ ^^^^ ^ ; ; '/ 

,'■:•,; :'.;.l FORMAT (2A8) . :■■.: .v'/^. ; l^ ;.'r;,:.:^V; /;■./. }■■:/:: ,\;,,':/ 

■■;V- READ '(5, SKELETON) -K,X;;^^,■■\^■■;;^^'■'';./'^^ 

The first READ statement enters the character^ string . 
into the array SKELETON. In the second READ statement, 
SKELETON is referenced as the format governing conversion 
••■ of'K and'x. ■■"■'':':' ■ ^ ''' -^-y' ''■'-:'':■'■. :, r\- ■■■:::].: 
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7.5.15 Carriage Control for Printincr 

Every record that is transmitted to a listing device 
for printing is assumed to have a carriage control 
character as the first character of the record. 
The carriage control character itself is not printed. •. 
.The carriage control characters are: 

Character Function Before Printing 

blank Space one line 

Space two lines 

. . •'■ Skip to first line of next page 

■*■ No space (for overprinting) 

Any- other character is treated as a blank. ::: I' 



EXAMPLE; 



10 FORMAT (9H1 PAGE / / 13/lHO) 
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7.6 Auxiliary I/O Statements 

These statements are used to control the positioning and 
file marking of sequential files. . 

7.6,1 REWIND Statement 



FORM: 

REWIND u 
where u is an I/O unit designation. 



This statement directs the I/O unit designated to reposition 
to the first record. U may not be an asynchronous variable. 



■ _ EXAMPLES: , ,./'^.;, 

j .REWIND .2 .-^ :,'•■..;.■■■:'■■/, ^^ 
•'■ REWIND K ■,■.■■ 

7.6. 2.' BACKSPACE Statement ',■•■''/ 

:: ^, \- FORM:.. ,..,.. ' '.V' '■ \.'\- '■ \' ■'' \ -'■■■'':' \-\:''-' 

'■■■■,■■■.;',;■ BACKSPACE u .-■ ; - ^'\-\': ::''':■■■'','.:■'■■':.:'. ■ 

where u is an I/O unit designation. 

This statement directs the I/O unit designated to backspace 
one record. U may not be an asynchronous variable. 

^■' :,/.:'V.EXAMPLES :"■'■'•':'. ■ - ■.^. ■;■■''''■''■■.-■;'- ':''i:' ... \ ''-.".'•:■: 

■BACKSPACE^ 5 ■.,;■■..'.■...■■■•"■•:;:.;';. ,■ 
: -BACKSPACE n:''^'',.^ ■.' ■/■'■:,:■ 
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7.6.3 END FILE Statement 

FORM: 

END FILE u 

where u is an I/O designation. 

The statement directs the I/O unit designated to write 
an end file mark. U may not be an asynchronous variable, 

EXAMPLES: 

END FILE 4 

■ ■ '~^^-- ■■ ■ . ■." ;END FILE't ■'■..,■'. :;' 
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8. PROGRAM UNITS 



A FORTRAN program consists of one main program and, 
optionally, SUBROUTINE subpno'grams , FUNCTION subprograms , 
and BLOCK DATA subprograms. Each of these is termed 
a "program unit." 



8.1 PROGRAM Statement 

•FORM: 

PROGRAM identifier ./■' - :^; 

The PROGRAr-I statement defines the program name that is 
used as the entry point name for the object module. The 
identifier, may not appear anywhere else in the program • 
unit. This statement, if present, must be the first 
statement of a main program, if not present the main 
program name defaults to F%MAIN. 



86 - 

RYAN-MCFARLANO CORPORATION 



R M C 



8.2 END Statement 

■ FORM: 

END , ' 

The END statement must be the physically last statement 
of each program unit. It informs the compiler of the end 
of the program unit. The END statement must be on a^ 
single source line; continuation lines are not allowed. 



8.3 RETURN Statement 

Fomiz '■',■•■:;':■■■;■,■;/,'.':', 

^. RETURN "■■■■■■.,, ^ ''•;.;;, ■■.'■ 

:• This statement returns control from a FUNCTION or SUBROUTINE 
""^'"subprogram to. the calling program unit. Normally, the 

;last statement executed in a subprogram is a RETURN statement. 

It rieed not be physically the last statement of the program. 

Any number of RETURN statements may be used. ; 
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8.4 RESUME Statement 

. : FORM: ' .'■;■. , 

RESUME 

This statement is used to place a function or subroutine in 
the asynchronous or parallel mode. It allows the calling 
program unit to continue execution; however, the function 
or subroutine continues to execute as well until a RETURN ■ 
statement is executed. 



8.5 Subprogram Communications 

The main program and subprograms communicate with each v 
other by means of COMMON variables and parameters. If the ; • 
means of communication is by parameters, the arguments of 
the subroutine or function call are known as actual parameters , 
---^'Corresponding argviments in the subroutine or function 
• argument list are formal parameters .. . 
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8.5.1 Actual Parameters 

The actual parameters which appear in a subroutine call 
or a function reference may be any of the following: 

An arithmetic expression 

A logical expression 
■ .,,•■■ A 'constant • . 

A simple variable : 

An array element reference 
;.■„.; An array name , 

A FUNCTION name . 

A SUBROUTINE name 

8.5.2 Formal Parameters 

The formal parameters appearing in the parenthetical list 
of a FUNCTION or SUBROUTINE statement may be any of the 
: following: ••'■ 

■;■■■,■■'.■■•■ An array name •',•';;■,■■■'■'■. ■ •,",/'■ 

■■'/■■■■ A .simple variable ": 

A subprogram name /■ •■ 

(either function or subroutine) 

The formal parameters, are replaced at each execution of the 
' ,..j^ parameters supplied in the CALL 

statement or function reference. 
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Formal parameters representing array names must appear 
within the subprogram in type or DIMENSION statements 
.giving dimension information. In a type or DIMENSION 
statement, formal parameters may be used to specify 
variable dimensions for array name formal parameters. 
Variable dimensions may be given only for arrays which 
are formal parameters. 

Within a subprogram, the use of formal parameters is 
restricted as follows: 

1. Formal parameters may not appear in COMMON statements. \ 

2. Formal parameters may not appear in EQUIVALENCE ^^^ ^^^^^ ^^■^■. ';f 
■;,.. statements .■, ■.....■....;■:,;',;:■ 

3. Formal parameters may not appear in DATA statements. 

8.5.3 Correspondence Between Actual and Formal Parameters 

When a subprogram is called, the formal parameters must ;; 
agree with the actual parameters as to number, order, type, 
and length. . For example, if an actual parameter is a integer 
constant than the corresponding formal parameter must be . ^ 

,"' ...■. of ^ INTEGER type...\.- / ■■ ''^V '" ' '''V/' '• ' ^:'' ■• ^'. •/^"■•- ' ^ 

Also, the formal and actual parameters must be either both 
synchronous or both asynchronous, they may not be mixed. :,.' 
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If a formal parameter is an array name, the corresponding 
actual parameter may be either an array name or an array 
element. 

If a formal parameter is assigned a value in the subprogram, 
the corresponding actual parameter must be a simple variable, 
array element, or array name. A constant or expression 
should not be used as an actual parameter if the corresponding 
formal parameter may be assigned a value- 

8 • 6 Statement Function Definition Statement 

FORM: 
::. identifier (identifier, identifier, . . . ) ^expression 

This statement defines an internal subprogram. The entire 
definition is contained in a single statement. The first 
identifier is the name of the subprogram being defined. i 

Statement function subprograms are functions ; , they are single- 
valued and must have at least one argument. The type of the 
functionis determined by the type of the function identifier. 

The identifiers enclosed in parentheses represent the arguments 
•of the function. These are formal parameters and have meaning 
and must be unique only within the statement. They may be 
■identical to identifiers of the same type appearing elsewhere 
.. in the program. These identifiers must agree in order, number, 
type, and length with the actual parameters given at 
execution time. ■ ■ ■ : 

The use of a parameter in the defining expression is specified 
by the use of its parameter identifier. Expressions are the 
only permissible arguments of internal functions; hence the 
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parameter identifiers may appear only as simple variables 
in the defining expression. They may not appear as array 
identifiers. 

Identifiers appearing in the defining expression which 
do' not represent parameters are treated as ordinary 
variables. 



The defining expression may include references to external ^ 
functions or other previously defined internal functions. 

All statement function definition statements must precede 
the first executable statement of the program. 

': ■.■■EXAMPLES: ; 

SSQR(K) = K*{K+l)*(2K+l)/6 

NOR(T,S)= .NOT.(T.OR.S) ; \ ■; • 

ACOSH(X)= (EXP(X/A)+EXP(-XA))/2 : - 

In the last exlr^le above, X is a parameter identifier and A 
is an ordinary identifier. At execution the function is 
evaluated using the current value of the quantity represented 
:;■_ by 'a. :•.'■■,. ■[''"■ ;■•,..,•;, ;.'-:-:''V';.::;v;:;;-'V::;rv.^^ ■; 

8.7 ■ FUNCTION Subprograms 



■^v. 



A FUNCTION subprogram is a function; it returns a single value 
and is referenced as a basic element in an expression. A 
FUNCTION subprogram begins with a FUNCTION. declaration and retui 
control to the calling program by means of a RETURN or RESUME 
statement. It is a program unit and/ consequently, must 
terminate with an END statement. 

. ■ • - ."■■•' ' ' • ,'*.■■.■■■.■■' 
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8.7.1 FUNCTION Statement 

— -;.; FORM: ■ 

FUNCTION identifier (identifier, identifier, .. .) 

This statement declares the program which follows to be a ' 
function subprogram. The first identifier is the name of 
the function being defined. This identifier must appear 
as a simple variable and be assigned a value during execution 
of the subprogram. This value is the function value. 

Identifiers appearing in the list enclosed in parentheses 
are formal parameters representing the function arguments. 

^ -EXAMPLE; .'.;.■;:■■.■.■■• \' .■.;■■■■■,■/.■''■ ■';. 
. FUNCTION FLOAT (I) 

\ FLOAT =1 

■■;■■■■..■ ;'■■• ...•^^; ...RETURN /■;:'■ \, .:-/■ .\;- ■;;.,■.■':..■:.■■. /^ 
;/, .'.';;■', •■■ '-.;'; ^/:'^.-;;^' END ;,:-';:;..;.;•':. ,:'o .^^^^^ ;.:',,' 

8.7.2 FUNCTION Type ; ; ' 

The type of the function is the type of identifier used to 
name the function. This identifier may be typed, implicitly, 
or explicitly, in the same way as any other identifier. " 
Alternately, the function may be explicitly typed in the 
FUNCTION statement itself by replacing the word FUNCTION 
. .with one of the .following: 

'^ ;■ INTEGER FUNCTION : . 

REAL FUNCTION V' , 
,.■.•;';,' DOUBLE, FUNCTION, ''•■ ■:, 

DOUBLE PRECISION FUNCTION 

'•.':' LOGICAL 'FUNCTION 
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For example/ the statement . 

COMPLEX FUNCTION HPRIME(S/N) 

is equivalent to the statements 

FUNCTION HPRIME(S,N) 
COMPLEX HPRIME 

■EXAMPLES: ■■■;■.■'.,;. 

FUNCTION MAY (RANG, XP,YP,ZP) 
REAL FUNCTION COT (ARG) 

8.;7.3 Library Functions 

The FORTRAN system supplies a library of standard functions 
which may be referenced from any program. Appendix A lists 
these library functions. These are divided into two sets: 
basic external functions and intrinsic functions. The basic 
external functions are called by the object program in the 
same manner as normal, user-supplied functions. Intrinsic 
function names are known to the compiler and intrinsic function 
references may be treated in.non-standard ways (such as 
as expanding the function in-line) . The programmer can supply 
^his own function in place of an intrinsic function by including 
the name in- EXTERI<IAL statements in all calling programs. , ;' 

8.8 SUBROUTINE Subprograms • ;v; 

A SUBROUTINE subprogram is not a function; it-fitay— b e^muHii ■' 
r- vQ - Lue d==and- can be referred to only by a CALL or CREATE statement 
A SUBROUTINE subprogram begins with a SUBROUTINE declaration 
and returns control to the calling program by means of a 
RETURN or RESUME statement. 
^ • — \ _ z^.^ ^ ■■■■•' •■ 
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8. 8.1 SUBROUTINE Statement 

FORMS: ■ 
SUBROUTINE identifier 
SUBROUTINE identifier (identifier /identifier ,... ) 

This statement declares the program which follows to be 
a SUBROUTINE subprogram. The first identifier is the 
subroutine name. The identifiers in the list enclosed in 
parentheses are formal parameters. , 

A SUBROUTINE subprogram may use one or more of its formal 
parameters to represent results. The subprogram name is 
not used for return of results. 

A SUBROUTINE subprogram need not have any parameters at all. 



EXAMPLES: 



SUBROUTINE EXIT 

SUBROUTINE FACTOR (CEF,N, ROOTS) 

SUBROUTINE RESIDUE- "(NUM,D, DEN, M, RES) 



8.8.2 CALL Statement 
FORMS: 



CALL identifier 

CALL identifier (argument ^argument, ... /argument) 

The CALL statement is. used to transfer control (call) to a 
subroutine subprogram. The identifier is the subprogram 
name.' ■.•■''" ■' '' ■■;„■■ 

,■.':.'- 95 - ■ \-.\ /■,'-': ■^.; ." ■ 

— — ' ■ RYAN -McFARLAND CORPORATION — 



R M C >^ 



The parameters may be expressions, array identifiers, 
alphanumeric strings, or subprogram identifiers, as in the 
case of a function reference. Unlike a function, however, 
a subroutine w ay havo more than on e-va lu e- a nd cannot be 
referenced as a basic element in an expression. A subroutine 
. may use one or more of its arguments to return results to the 
calling program. If no arguments at all are required, the 
first form is used. 

■. .EXAMPLES: '' 

CMiL EXIT : -;:'■'■• 'V -;,:-■;■/'' •■ 

CALL SWITCH(SIN,2.LE.BETA,X**4,Y) • 

^ CALL.MULT(A,B,C) ./■ /^' ;;:\v;--:> ^'■\-\;{;\';..'''.\, 

The identifier used to name the subroutine is not assigned 
a type and has no relation to the types of the arguments- . 

8.8.3 CREATE Statement ' • 

.;-," FORMS: 'v' : ■'■V,\,, ''■■:■:::'■.:'''•■''-.■'':■'■.'■■-'>:'. 

: .-. CREATE identifier . 

CREATE identifier (argument,argument, ...,argument) 

The CREATE statement is used to execute a 
subroutine as a parallel process. The identifier 
is the subroutine name. , ., : 

■ ■•:■'. ■■..'? ■ ■■-. ,.•:■:■■.■■;::■■:•■:■;. 

The CREATE statement is the only^way to initiate execution 
of any asynchronous subroutine. 
EXAMPLES: ',-■', 

CREATE GRAPH($IN,X) ' > •' 

.■■• CREATE... PROC ■. 
. ^____ ■ - 96 - ■• ■•■^- ■.■.;,,.■■.■ .:=N».—^: 
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APPENDIX A: LIBRARY FUNCTIONS 



Intrinsic Functions 






Function 


Type of 
Parameter 


Type of 
Result 


ABS (a) 


Real ■ 


Real 


lABS(a) 


Integer 


Integer 


DABS (a) 


Double 


Double 


AINT(a) 


Real . 


Real 


INT (a) 


Real 


Integer 


IDINT(a) 


Double 


. Integer 


AM0D{aj^,a2) 


Real 


Real / 


M0D(a-j^/a2) 


Integer 


Integer 


AMAX0(aj^,a2/...) • 


Integer 


Real 


AMAXl(aj^/a2,...) 


Real 


Real 


MAXO (aj^,a2/...) 


Integer 


Integer 


MAXl ia^,^^,...) y 


Real 


• Integer 


DMAXKa ,a2,.. .) 


Double 


Double 


AMINO ( 3^/32,...) 


Integer 


Real 


AMINl(aj_,a2/...) 


Real 


Real 


MINO' is-ir^^r-") 
MINI {a^,a^,,..) 


Integer 
Real 


Integer 
Integer 


DMINl(a^,a2, . ..) 


Double 


■ Double 



FLOAT (a) 



Integer 



Real 
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Truncation 



a, (mod 32) 



Max (a, ,32, - . .) 



■ Min(a, ,32, . . .) 



■ Conversion from 
integer to Real 
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FULL(a) 
EMPTY (a) 



IFIX(a) 



SNGL(a) ; 
REAL(a)\' 

■ DBLE(a) ■ 

CMPLX(aj_/a2) 
CONJG(a) 



any. 

asynchronous 

type 

any . 

asynchronous 

type 



Real 



logical 



logical 



Integer 



Double 

Complex 

Complex 

Real 

Real 
Complex 



Real 



Real 



Real 



Double 



Complex 



Complex 



R M C 

Test Full 
semaphore 



Test Empty 
semaphore • 



Conversion from 
real to integer 



SIGN(a^/.a2) 


Real 


. Real . 


Sign of aj time 


ISIGN(a3_,a2) . 
DSIGN(a^/a2) 


Integer 
Double 


Integer 
■ Double 


•■.." '' •' 


DIM (ai/a2) 
IDIM (aj_,,a2) 


Real 
Integer 


'■-';. Real 

Integer 


a,-Min(a, ,32) 



Coversion from 
dotible to real 

; Obtain real pari: 
of complex 

Obtain imaginary 
part of complex 

Conversion from 
real to double 



aj^ + ajV-l 



Obtain conjugat 
of complex : 
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lOR (a^,a2) 
LAND(aj^/a2) 
NOT (a^) 
IEOR(a, a2) 
ISHFT(a^,a2) 



Integer 
Integer 
Integer 
Integer 
Integer 



Integer 
Integer 
Integer 
Integer 
Integer 



Inclusive OR 



Logical AND 



Logical negatio \ 



Exclusive OR 



Shift aj^ by 
aj bits 
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BASIC EXTERNAL FUNCTIONS 



Function 



EXP (a) 

DEXP(aj 

CEXP(a) 

ALOG(a) 
DLOG(a) 
CLOG (a) 

ALOGlO(a) 
DLOGlO(a) 

SIN (a) 

DSIN(a) 

CSIN(a) 

COS (a) 
DCOS{a) . 
CCOS(a) 

TANK (a) 

SQRT(a) . . 

DSQRT(a) 

CSQRT(a) 

ATAN(a) 
DATAN(a)_ 

ATAN2 (a^fa2) 
DATAN2(aj^,a2) 

DJAODia^ra^) 
CABS (a) 



Type of 
Parameter 


Type of 
Result 


Real 


Real 


Double 


Double 


Complex 


Complex 


Real 


Real 


Double 


Double 


Complex 


Complex 


Real 


Real 


Double 


Double 


Real 


Real 


Double 


Double 


Complex 


Complex 


Real 


Real 


Double 


Double 


Complex 


Complex 



Real 

Real 

Double 

Complex 

Real 
Double 

Real 
Double 

Double 
Complex 



Real 

Real 

Double 

Complex 

Real 
Double 

Real 
Double 

■ 

Double 
Complex. 



Definition 



In (a) 



log^^QCa) 



sin (a) 



cos (a) 



tanh (a) 



arctan (a) 



arctan (aj^/a2) 



a, (mod a2) 

Absolute value 
of complex ;•■: 



mo - 
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APPENDIX B ! COMPILER LISTING FORMAT AND DIAGNOSTICS 

Compiler Listing Format 

The compiler optionally outputs the following listings: 

. Source and diagnostic 
Allocation 
Cross Reference 
. / Object ■ 

Called subprograms 
■v ,' statement label ■; 
\ Line number listing 
.■•. Summary ■;,-, ■ 

The source and diagnostic listing includes a sequential line 
number, source image and interspersed diagnositcs. 

The allocation listing includes the name, mode, size and 
location of each variable. Allocation errors are listed. 

The cross reference listing includes all variable names in 
alphabetical order, their location and the line number of 
each reference. The line 'n\iraber is followed iay an asterisk 
if the preference is a possible modification. References to 
all labels are included. . 

The objject listing is produced only for the verification of 
object code by the developers and maintainers. It includes . 
the location, symbolic opcode and operands of each instruction, 

The called subprogram listing includes the name, mode and 
nuniber of parameters of each called subprogram, ' • 
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The statement label listing includes the label, location 
and type of use of all statement labels. . 

The line number lisitng includes each line number and its 
location. 

The summary listing includes the number of errors, the 
number of warnings, the program size and the data size. 
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Statement Error Diagnostics 

During compilation, statements which violate the syntactic 
or semantic rules of the language are recognized and error, 
indications are printed. 

There are two levels o'f statement diagnostics: warnings and 
errors. Warnings are issued for minor infractions where the 
compiler can still determine what is to be done and compile 
the statement. Errors are severe violations of the language. 
In the case of errors, compilation proceeds as if the statement 
was never encountered. The' statement label, if any, remains . 
defined. If the error statement is ever executed, it will 
cause a link to a system routine which will terminate execution 
of the program and notify the user that an attempt has been 
made to execute an erroneous statement. The name of the program 
and the line number of the statement will be displayed. 

One character of the statement is marked with an up-arrow • 
symbol .'""' output directly benea"fch the erroneous character, ; 
■for example: 

.;■ zata'-x + y *:-, a: .;•■•■. \.:. ■..-, 

■ ' ■ ■'-■■'■' ' . ^ . ..:■■'--- 

The character "-" is marked as an error. 

In the case of a sny tax error, the' marked character itself : 
•was unacceptable, as in the example above. In the case of • 
a. semantic error, an identifier or other construct is in 
error, the mark indicating the last character of the construct. 
For example, in the line: . 
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COMMON ALPHA, BETA, ALPHA, GAMMA. 

the mark indicates that the identifier ALPHA is misused. 

The compiler attempts all interpretations of statement type 
before discarding a statement. The marked position indicates 
the greatest amount of correct information found under the 
most logical assumption of statement type. 

A comment specifying the reason for the failure is output 
directly after the marked line. There may be more than one 
diagnostic per line. The diagnostics are listed left-to- 
right. Each diagnostic is followed by a sequence of ;.. . 
characters: "E*E*E.. . .E" or "W*W*W. .. .W" indicating "error" . 
or "warning", respectively. 

An alphabetic list of possible statement diagnostics 
follows:. :,■■'■..„■.'..:■.•■:,■■/-;, '-^ ■■'.:■■■,.■■■ 

ARGUMENT CONVERTED (Warning) ; "' \ 

The type of the indicated parameter for an intrinsic function 
was converted to agree with the type required by the function. 

ARGUMENT COUNT (Warning) '':,■;,'■'.'',. }\^':\ 

The number of parameters to a subprogram is wrong either .: 
because it is an intrinsic function which the ! compiler knows 
•about or because the same subprogram was called previously "y 
with a different number of parameters. ^^^^ • 
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has been made to declare an array that has more 
n allowed. ■ 



BLOCK DATA ONLY 

A DATA statement not in a BLOCK DATA subprogram attempted 
to initialize a variable in COMMON. 

An executable statement has been included in a BLOCK DATA 
subprogram. 



CONSTANT SIZE 



The size of the indicated constant is outside the allowable range, 



DATA TYPE 

The type of a constant in a DATA statement does. not agree with 
the type of the variables it is to initialize.; ■■ 



DATA COUNT ■ '■ .:■.•, '■^\- % [-.:r'[.':':.':'::y-\ \ ■/■■■■'''::. ^ -'-'h. 

The number of variables in a DATA statement does not agree with 
the number of constants. 
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DECLARATION CONFLICT 

An attempt has been made to declare an identifier as a 
FORTRAN entity (simple variable/ array , subprogram , statement 
function name) which has already been used otherwise. 




jension has been declared outside of the allov/able 



DUPLICATE DUMMY • 

A formal parameter has been declared twice in a statement function 
definition, FUNCTION, or SUBROUTINE statement. ■;: 



EXTRA C0I4MA (Warning) 

More than one comma has been encountered at a point where a single 
comma was expected..;' :.;,■.: 



FORMAT LABEL / 

The indicated statement number was declared in the label 
field of a FORMAT statement and is being used in some manner 
other than as a format reference. 
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ILLEGAL DO CLOSE (Warning) 

A DO loop was closed with an illegal statement. 

ILLEGAL LABEL 

A statement number is less than 1 or greater than 99999. 
Or, a DO statement references a previously defined label 
or a label previously referenced as a FORJIAT. 

ILLEGAL NUMBER 

FORMAT, DATA or CONST repeat count not greater than zero. 
Or, uninary minus of Hollerith or Hexadecimal constant. Or, 
illegal complex nximber format, 

JUMP LABEL 

A statement number which is not a FORMAT label has been used 
as if it were. Or, a FORMAT label has been previously 
referenced by an IF or a GOTO. ;, ■ , 

LABEL MISSING (Warning): , -\ •/^■::-;/'\^'''/:/-.;'':'^:^ 

The indicated statement cannot be executed because it has 
no statement number. Or, the indicated FORMAT cannot be. 
used because it has no statement niimber.^^^^^^^ ^^:-':-^ 

MISSING COMMA (Warning) . 

A comma was missing at a point where one was expected but 
compilation could continue. 
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MISUSED NAME ■ • 

An identifier has been used in the wrong context, such as 

.' ..•■ ■ ■ y ■ ■ '■..■■■ , ■ '■■■■■ 

-A formal parameter in a DATA or EQUIVALENCE 
statement. 

- A variable dimension which is not a simple 
formal parameter. 

,. -A subprogram name used without parameters 
in an expression. : 



MULTI DEFINED 



A statement number is multiply defined. 



NOT ARRAY 



An identifier which is not an array name has been used where 
an array name should have appeared. 



NOT INTEGER 



A variable or expression of type other than integer has been 
used where only integer type is allowed. 



NUMBER OF SUBSCRIPTS / 

The number of subscripts in an array reference is incorrect. 
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RANGE 



The second character in the declaration of an IMPLICIT range 
does not alphabetically follow the first character. 

A constant subscript array reference has a subscript which 
falls outside the size of the array. 



STATEMENT NOT ALLOWED 



A statement has been used in an illegal context. An illegal :. 
logical IF secondary statement or the statement is in the wrong 
order/ such as a statement function def intion not preceding .■ 
executable statements. 



SYNTAX 



Usually erroneous punctuation or an illegally constructed ; : 
expression." 

The character marked shows how much' of the statement was scanned 
before it ceased to make sense. 
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TYPE CONFLICT 

The same first character has been declared different types in 
IMPLICIT. 

The types of the operands of an arithmetic or logical operator 
are illegal. 

The types of the right and left-hand sides of an assignment are 
improper. 



UNDIMENSIONED 



A simple variable is followed by a left parenthesis. 



UNRECOGNIZABLE 



The entire statement was unrecognizable. 



UNSUCCESSFUL COPY 



A copy statement could not be performed. 



Program Error Diagnostics 

After the source program has been listed, sununary error 
messages pertaining to the program as a whole are listed. 

The following describes each of these' messages or set of 
messages.- ; 
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FUNCTION NAME NOT REFERENCED 



This message appears at the end of any FUNCTION subprogram 
wherein the function name does not appear on the left hand 
side of an assignment statement. 



OPEN DO LOOPS 

Following this heading, all DO loops which were not closed are 
listed in the form: 

"statement-number OPENED AT LINE line-number" 



UNDEFINED LABELS 



All undefined statement numbers are listed after this heading. 
Each undefined statement number appears as: 

statement-number FIRST REFERENCED AT LINE line-number 



ALLOCATION ERRORS 

This heading will be followed by a list of identifiers that 
were incorrectly assigned memory locations by the program. : . 
These errors are caused by COMMON and/or EQUIVALENCE statements, 

Such errors 'as: '■ ., 

-. Equivalencing variables from different common 

;■■,■■■■■■ blocks. ■'■■...,'■::■..■. , 

- Extending a common block backwards. ■ 
'■ - Specifying an impossible equivalence group.. 
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APPENDIX C: COMPILER EXECUTION 



The method by which the compiler is envoked is not known 
at present, however the various compilation options are. 



Compiler Options 

Conditional Compilation - COND 



This option causes lines containing a "D" in column one to 
be compiled, default is to be treated as a comment. 

Debug Mode - DEBUG 

This option causes the compiler to generate additional code 
to produce a block level trace at execution time. 

Cross Reference - XREF 

This option causes the compiler, to print an alphabetical 
listing of each identifier and where 'it was defined, altered, ■ 
or referenced.^ , ■, ^■■.■■.■;..,/';.. . 

List Object - LOBJ 

This option causes the compiler to print pseudo .assembly language 
statements corresponding to the object code generated. 
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APPENDIX F; FORTRAN RUNTIME LIBRARY 

The programs involved with the process of executing a FORTRAN 
program may be divided into four catagories : 

Function Library 
Arithmetic Library 
Resident I/O Library 
Non-Re sident I/O Library 

The Function Library consists of the basic external functions 
and non-inline intrinsic functions. These are all referenced 
directly by the FORTRAN program. Hence ^ the module name is the 
same as the FORTRAN function name. The initial version of the 
function- library will be coded in FORTRAN for expediency. 



The Function Library is comprised of the following modules; 



ALOG 


CLOG . 


ALOGIO 


COS : 


ATAN 


COSH 


ATAN2 


CSIN 


CABS 


CSQRT 


CCOS 


DATAN 


CEXP 


DATAN2 



DCOS 


EXP 


DEXP 


IDINT 


DLOG 


•SIN 


DLOGIO 


SINK 


DMOD 


SQRT 


DSIN 


TANH 


DSQRT 





The Arithmetic Library consists of the functions indirectly 
referenced by the FORTRAN Program. These modules all have 
the prefix FR% to identify them as part of the FORTRAN runtime 
library and to limit conflicts with user names. Like the 
Function Library, the majority of the Arithmetic Library is 
written in FORTRAN. 



Name 
FR%CVDI 

FR%CVID 
FR%DADD 
FR%DSUB 
FR%DMUL 
FR%DDIV 
FR%CMUL 
FR%CDIV 
FR%DTNE 
FR%DTEQ 
FR%DTLE 
FR%DTLT 
FR%DTGE 
FR%DTGT 
FR%CTNE 
FR%CTEQ 
FR%PWII 
FR%PWIR 
FR%^WID 
FR%PWIC 
FR%PWRI 



Language 
Assembly 

Assembly 

Assembly 

Assembly 

Assembly 

Assembly 

Fortran 

Fortran 

Fortran 

Fortran 

Fortran 

Fortran 

Fortran 

Fortran 

Fortran 

Fortran 

Fortran 

Fortran 

Fortran 

Fortran 

Fortran 



Function 

Convert double precision to 

integer. 
Convert integer to double precisioi 
Double precision add 
Double precision subtract 
Double precision multiply 
Double precision divide 
Complex multiply 
Complex divide 
Double precision test .:1IE.. 
Double precision test .EQ. 
Double precision test .LE. 
Double precision test .LT. 
Double precision test .GE. 
Double precision test .GT. 
Complex test .NE. 
Complex test .EQ, 
1**1 power routine 
I**R power routine 
I**D power routine 
I**C power routine . 
R**I power routine 



Name 



Language 



Function 



FR%PWRR 
FR%PWRD 
. FR%PWRC 
FR%PWDI 
FR%PWDR 
FR%PWDD 
FR%PWDC 
FR%PWCI 
FR%PWCR 
FR%PWCD 
FR%PWCC 



Fortran 
Fortran 
Fortran 
Fortrcin 
Fortran 
Fortran 
Fortran 
Fortran 
Fortran 
Fortran 
Fortran 



R**R power 
R**D power 
R**C power 
D**I power 
D**R power 
D**D power 
D**C power 
C**I power 
C**R power 
C**D power 
C**C power 



routine 
routine 
routine 
routine 
routine 
routine 
routine 
routine 
routine 
routine 
routine 



The Resident I/O Library consists of the modules required to 
initiate FORTRAN I/O and communicate with the Non-Resident . 
Library located, presently, on the Interdata computer. These 
modules all reside in the HEP, are written in assembler and 
have the prefix FR%. 



Name 

FR%ENF 
FR%DNF 
FR%WNF 
FR%WRF 
FR%T;"7NU 
FR%WRU 
FR%RNF 
FR%RDF 
FR%RRF 
FR%RBF 
FR%RNa 
FR%RDU 



Function '■■;■-::■■' 

Initiate ENCODE 

Initiate DECODE ; 

Initiate WRITE formatted 

Initiate WRITE formatted (with ERR=option) 

Initiate WRITE unformatted 

Initiate WRITE unformatted (with ERR=optioh) 

Initiate READ formatted 

Initiate READ formatted (with END=option) 

Initiate READ formatted (with ERR=option) 

Initiate READ formatted (with END=,ERR=options) 

Initiate READ unformatted 

Initiate READ unformatted (with END=option) 



Name 



Function 



FR%RRU 

FR%RBU 

FR%BKSP 

FR%ENDF 

FR%REWD 

FR%STOP 

FR%PAUS 

FR%IIOF 

FR%RI0F 

FR%DIOF 

FRltlOF 

FR%LIOF 

FR%SIOF 

FR%IIOU 

FR%RIOU 

FR%DIOU 

FR%CIOU 

FR%LIOU 

FR%SIOU 

FR%TENT 

FR%TRTN 

FR%TRES 

FR%.TFLW 

FR%CERR 

FR%RERR 

-FRUNETOC 



Initiate READ unformatted (with ERR=option) 

Initiate READ unformatted (with END=,ERR=options) 

Initiate BACKSPACE 

Initiate ENDFILE 

Initiate REWIND 

Initiate STOP 

Initiate PAUSE 

Formatted I/O, Integer item 

Formatted I/O, Real item 

Formatted 1/0, Double item 

Formatted I/O, Complex item 

Formatted I/O, Logical item 

Formatted I/O, Stop I/O 

Unformatted I/O, Integer item 

Unformatted I/O, Real item 

Unformatted I/O, Double item 

Unformatted I/O, Complex item 

Unformatted I/O, Logical item 

Unformatted I/O, Stop I/O 

Trace option, subprogram entry 

Trace option, RETURN statement 

Trace option, RESUME statement 

Trace option, trace flow 

Report compilation error 

Report runtime error 

Function Library interface to FR%RERR 



The Non-Resident I/O Library consists of the modules required 
to perform the logical and physical I/O on the Interdata 
computer. These modules all reside on the Interdata, are 
written in assembler and have the prefix FR$. 



Name 



Function 



FR$PIO 
FR$IOF 
FR$IOU 
FR$RiO 
FR$IIO 
FR$FUT 



Perform physical I/O 
Perform formatted logical I/O 
Perform unformatted logical I/O 
Interpret D,E/F and G formats 
Interpret Z,I.and L formats 
Formatted I/O utility modules 



